[VBA] : action sur la touche ENTER

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] : action sur la touche ENTER

fannypoulain

Bonjour,

J'ai un bouton "valider" et "Annuler" dans ma macro.
Je voudrais que les mêmes actions soient effectuées quand on appuie sur les touches "ENTER" ou "Echap"

Comment modifier le code ?

Pour l'instant j'ai :

Private Sub CommandButton1_Click()

' traitement

End Sub

J'aimerais ne pas dupliquer le code (traitement).

Publicité

fannypoulain

Pas d'idée ?

LePhasme

Les Belges domineront le monde

http://www.pise.info/vb/partie6.htm

---------------
Instagram - Mon PVT en Australie.

fannypoulain

Merci pour ton aide.

j'ai réussi à coder le truc :

Code :

Private Sub CommandButton3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then
'MsgBox "Echap"
End If
End Sub

Mais comment forcer la même action que CommandButton3_Click() ?

On ne peut pas coder un truc du style
Set CommandButton3_Click() = True ???

Message édité par fannypoulain le 27-01-2009 à 11:41:46

fannypoulain

fannypoulain

LePhasme

Les Belges domineront le monde

Si je me trompe pas tu peux faire un

Code :

Private Sub CommandButton3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then
        'CommandButton3_Click
End If
End Sub

---------------
Instagram - Mon PVT en Australie.

fannypoulain

Je vais essayer demain.

Mais pourquoi est on obligé de lier la commande à CommandButton3 ?
Si je mets un autre bouton, ça change quelques chose ?

LePhasme

Les Belges domineront le monde

Tu dois pouvoir le mettre sur le form aussi.
Si tu le mets sur un autre bouton, il "écoutera" les frappes clavier uniquement quand ce bouton aura le focus.

---------------
Instagram - Mon PVT en Australie.

fannypoulain

Ok, c'est pour ça que ça ne marche pas alors.

Comment il faut faire pour que ça écoute pour l'ensemble de la fenêtre ?

Publicité

fannypoulain

Sinon, quand on met un bouton, savez vous comment on ajoute un commentaire qui s'affiche quand on passe dessus (comme dans Windows) ?

LePhasme

Les Belges domineront le monde

Normalement tu as un form_keypress event.
Mais tu dois activer le keypreview d'abord.

Pour le texte, c'est le tooltip, dans les propriétés du bouton.

---------------
Instagram - Mon PVT en Australie.

fannypoulain

OK merci je vais essayer ça !

fannypoulain

Je n'ai pas tooltip dans les propriétés du bouton !

fannypoulain

SuppotDeSaTante

Aka dje69r

Bonsoir

Pour ne pas avoir a dupliquer le traitement, il faut passer par un Sub ou une Fonction a part, puis l'appeler dans les differents evenements.
Ex :

Citation :

Sub toto() 'ton traitement externe
' debut traitement
'
'
' fin traitement

MsgBox "toto"

End Sub

Private Sub CommandButton1_Click()
Call toto 'la tu appelles le sub toto pour faire le traitement
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.ControlTipText = "Ton message d'infobulle"
End Sub

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyEnter Then
Call toto 'ici idem, si la touche est ENTREE, tu appelles le sub toto pour faire le traitement
End If

End Sub

En rouge le sub Toto ('externe') qui fait le traitement, ici ca n'affiche qu'une boite de dialoge contenant "toto"
En bleu Qd on click sur le bouton ca appelle le sub Toto
En vert quand on passe la souris sur le bouton ca affiche une infobulle
En noir, si la touche entree est relachée ca appelle le sub Toto

Cordialement

Message édité par SuppotDeSaTante le 02-02-2009 à 20:36:06

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] : action sur la touche ENTER

Sujets relatifs
[VBA Excel] Procédure redondante dans Userform	[VBA] Remplissage de cellules très long en temps
programmer des dates sur VBA	[ACCESS] Erreur de compilation requete VBA
Lister les différents champs d'un parametre d'une fonction. Possible ?	modifier position texte apres action sur bouton
mettre action sur bouton flash	[VBS] Comment simuler l'appui de la touche tab, windows et enter?
Gestion de saut de page ACCESS/VBA
Plus de sujets relatifs à : [VBA] : action sur la touche ENTER

Page générée en 0.061 secondes