[VBA Excel] Keycode -> ? [Résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Excel] Keycode -> ? [Résolu]

mmarle

Bonjour,

Malgrès les diverses recherches sur le net, je voudrais savoir s'il existe un numéro de KeyCode pour le point d'interrogation!?

En effet dans une petite application je souhaite que lorsque l'on appuie sur la touche "," (? en mode majuscule) que l'on ait toujours la virgule qui apparaisse. J'ai réussi la manipulation avec la touche "." du pavés numérique:

Code:

Code :

Private Sub MOD_TextBox_02_Quantité_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'*******************************'
'* Change la touche "." en "," *'
'*******************************'
'Procédure'
If KeyCode = vbKeyDecimal Then
KeyCode = 188
End If
End Sub

L'interêt est que l'on puisse avoir toujours la virgule de saisie à la place du point ou du point d'interrogation et ce même si CapLock est activé.

Merci d'avance.

Message édité par mmarle le 25-02-2011 à 22:41:35

Publicité

kiki29

Salut,voir un pot pourri sur http://cjoint.com/?3cxuRexIyoE
Je sais,il y a plus simple,mais là tu as tout

Message édité par kiki29 le 23-02-2011 à 21:41:53

SuppotDeSaTante

Aka dje69r

Ca serait plus simple de passer par le KeyPress

Citation :

dans le KeyDown tu obtiens un code de VB ; alors que dans le KeyPress c'est un code ASCII

Et le ? a un code ascii = 63

Attention toutefois, Excel (Microsoft) utilise aussi le ? comme caractère générique. Par exemple faire une recherche sur un mot avec un accent sans savoir si celui-ci a été saisi avec ou sans accent.
Par exemple quelqu'un qui cherche "mémé" mais ne sait pas si "mémé" a ete saisi avec ou sans accent fera une recherche comme ca :
m?m?
Et Excel recherche toutes les occurence avec les m
méme
mémé
mrmp
mama
etc.

Donc le ? dans Excel est plus que pratique, fais un essai avec Recherche (Ctrl+H)

Message édité par SuppotDeSaTante le 25-02-2011 à 10:38:35

---------------
Soyez malin, louez entre voisins !

mmarle

Merci à vous deux,

Vous venez encore de remettre un mouton dans le droit chemin!

Je peux donc remplacer mon code précédent par celui-ci:

Code :

Private Sub MOD_TextBox_02_Quantité_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'****************************************'
'* Change les touches "." et "?" en "," *'
'****************************************'
'Procédure
If KeyAscii.Value = 46 Then
KeyAscii.Value = 44
ElseIf KeyAscii.Value = 63 Then
KeyAscii.Value = 44
End If
End Sub

Qu'est ce qu'il est bien ce forum!

Et encore merci.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Excel] Keycode -> ? [Résolu]

Sujets relatifs
Excel ?	[VBA] Dernière ligne vide dans un fichier excel vide
VBA Excel Remplacer retour chariot par saut cellule	VBA: collage speciale de texte provenant du presse papier vers Excel
remplir une colonne excel à partir d'une ligne donnée	Certificat Excel - VBA
Plus de sujets relatifs à : [VBA Excel] Keycode -> ? [Résolu]

Page générée en 0.052 secondes