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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2020

• #2

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.

 

Pièces jointes

• Essai Heure (5).xlsm

  18.3 KB · Affichages: 5

Dernière édition: 31 Août 2020

Vote positif 0 Vote négatif

Solution

B

Bruno59

XLDnaute Nouveau

• 31 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2020

• #4

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

 

Vote positif 0 Vote négatif

B

Bruno59

XLDnaute Nouveau

• 1 Septembre 2020

• #5

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

 

Pièces jointes

• Essai Montant.xlsm

  22.2 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2020

• #6

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.

 

Vote positif 0 Vote négatif

B

Bruno59

XLDnaute Nouveau

• 26 Septembre 2020

• #7

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

 

Vote positif 0 Vote négatif