Utilisation des touches du clavier pour exécuter une macro

Question

Je désirerais savoir s'il y a une autre méthode que de mettre en mettant l'application Onkey dans Thisworkbook ? Car cela ne fonctionne pas.
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

vb95 · Answer

Bonjour  !
Eh oui bonjour et s'il vous plaît sont des mots appréciés par les bénévoles que nous sommes . Ce sont des marques de respect .
En plus USF je pense que cela signifie UserForm alors que BP n'échappe en programmation ( à part une célèbre marque de station essence )

Bruno59_8828 · Answer

Bonjour,
La multiplication des valeurs de la TextBox1 et la TextBox2 fonctionne.
Ce que je cherche c'est une commande que me permettrait de passer de la TextBox1  à la TextBox2 avec la touche  "Entrée" du clavier, de pouvoir revenir à la TextBox1 lorsque je suis sur la TextBox2 avec la touche "Retour Arrière" du clavier.
Pouvoir supprimer le contenu de la TextBox1 ou TextBox2 avec la touche "Supp" du clavier.
Lorsque les contenu des deux TextBox est saisi, pouvoir faire l'opération avec la touche "Entrée" du Clavier.
Tout ceci doit pouvoir ce faire lorsque l'Userform est ouverte

vb95 · Answer

Bonjour
Je n'y connais pas grand-chose en VBA  mais voici mes réflexions sur le sujet

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        ' Case touche Return ( vbKeyReturn )
              ' stockage de la valeur de Textbox1 dans une variable 
              ' si Textbox2 est vide 
                   ' donne le focus à Textbox2
              ' sinon 
                   ' on fait la multiplication des 2 valeurs
        ' Case Touche Supprime ( vbKeyClear )
              ' stockage de la valeur de Textbox1 = 0
              ' efface le contenu de Textbox1
    End Select
End Sub

Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        ' Case touche Return ( vbKeyReturn )
              ' stockage de la valeur de Textbox2 dans une variable
              ' si Textbox1 est vide 
                   ' donne le focus à Textbox1
              ' sinon 
                   ' on fait la multiplication des 2 valeurs
        ' Case Touche Supprime ( vbKeyClear )
              ' stockage de la valeur de Textbox2 = 0
              ' efface le contenu de Textbox2
        ' Case Retour Arriere ( vbKeyBack )
              ' donne le focus à Textbox1 
    End Select
End Sub
 

Je t'ai mis les constantes VBA pour les Keycode des touches (vbKeyReturn, vbKeyClear et vbKeyBack )

Utilisation des touches du clavier pour exécuter une macro

3 réponses

Votre réponse

Discussions similaires