[VBA] Détection des touches

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Détection des touches

astik89

Bonjour,

dans un userform je cherche à détecter lorsque l'utilisateur appuie sur certaines touche pour pouvoir y lier une action (notamment Esc pour quitter et Enter pour valider).

J'ai trouvé qu'il fallait utiliser keypress, keydown ou keyup.

Seulement ça ne fonctionne pas.
J'ai mise ce code dans un userform, et il ne se passe strictement rien.

Code :

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox Chr(KeyAscii)
End Sub

Publicité

kiki29

Salut,voir http://silkyroad.developpez.com/VBA/UserForm/

astik89

Merci.
Je connais déjà ce topic très bien fait.

J'ai continué de chercher et j'ai trouvé qu'il fallait mettre la propriété keypreview du userform à true.

Mon problème, maintenant, c'est que je n'ai pas cette propriété.

PS: je suis sous Office 2007 avec VB6.3

kiki29

re, tu mélanges VB6 et VBA : KeyPreview n'est disponible que sous VB6 ( Visual Studio 6 ) et pas VBA
VBA ( VB6.3 ) étant une déclinaison parcellaire de VB6 adapté à l'environnement MS Office

Message édité par kiki29 le 01-01-2010 à 17:22:01

astik89

OK
Donc si j'ai compris, keyprevew n'existe pas en VBA.
Et, la détection de touches ne peut se faire que dans des contrôles, pas dans le userform directement.

kiki29

Re,

Option Explicit

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyF1: MsgBox "F1"
Case vbKeyF2: MsgBox "F2"
End Select
End Sub

astik89

Bonjour,
ton code ne fonctionne que s'il n'y a pas de controls dans le USF.
Par contre dès qu'on met un txtbox ou un commandbutton, il ne fonctionne plus.

Du coup, mis ce code pour chacun de mes contrôles (en remplacant UserForm par le Nom du control).

Merci quand même

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Détection des touches

Sujets relatifs
Modifier une propriété d'un CommandButton par VBA	VBA ACCESS
[VBA] Boucle sur variables	comparaison de valeur sur VBA
[VBA] Worksheet_Change	[VBA]- passer la ligne en dessous
[Excel VBA] Lister les noms de plages de cellules et leurs coordonnées	Besoin d'aide en VBA
[VB/VBA/VBS] Mauvaise détection de plage.
Plus de sujets relatifs à : [VBA] Détection des touches

Page générée en 0.041 secondes