XL 2016 Déclencher une macro en appuyant sur un bouton du clavier

[Bruno59]

J'ai créer un userform qui permet de faire défilé l'heure. Lorsque je click sur le bouton départ, cela fonctionne bien. lorsque je veux démarrer l'horloge avec le bouton "Entrée", il faut que j'appuie deux fois pour déclencher la macro alors pour un message c'est instantané. je vous joins le fichier.

 

[sylvanu]

Bonjour Bruno,
Dans l'userform Comdepart, mettre la propriété Default à True.
Ainsi Départ sera pré sélectionné par défaut et un simple Entrée lancera le chrono.

 

[Bruno59]

Merci, même si je n'ai pas de bouton, déclenché une macro avec le bouton entrée ou supprime par la méthode que j'ai trouvé en mettant l'application Onkey dans Thisworkbook. Cette question est pour un autre projet

 

[sylvanu]

Bonjour Bruno,
C'est une affirmation ou une question ?
Vous pourriez préciser ?

 

[Bruno59]

Bonjour Sylvanu
Je désirerais savoir s'il y a une autre méthode méthode ? Je peux choisir le changement par La touche "Entrée" mais pas par une autre touche.
à l'ouverture de l'USF je suis la TXT 1, je mets un nombre, avec la touche "Entrée" je passe à la TXT2.
Je souhaite revenir en arrière sur la TXT1 avec la touche "Retour Arrière", supprimer le contenu de la TXT avec la touche "Supp" ou afficher la multiplication des deux TXT dans TXT3 avec la touche "Entrée". C'est à dire ne plus utiliser les BP de commande de l'USF

 

[sylvanu]

Désolé, je n'ai jamais testé la redirection d'une touche au sein d'un Userform.
C'est peut être possible, le plus difficile sera de réaffecter la touche à la sortie, lorsqu'on clique sur la croix. Il y a de fortes chances que la touche ne soit pas réaffectée.

 

[Bruno59]

J'ai trouvé la solution, j'utilise la macro ci-dessous
Private Sub TextBox1KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If TextBox1.Value <> "" Then
Select Case KeyCode
Case vbKeyReturn: "Ma Macro"
End Select