Menu

Modification dans UserForm

Messages postés
172
Date d'inscription
mercredi 4 mars 2015
Dernière intervention
8 décembre 2018
- - Dernière réponse : cs_Le Pivert
Messages postés
5593
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 décembre 2018
- 9 déc. 2018 à 09:14
Bonjour a tous
Suivant la pièce jointe, pourriez vous modifier de façon a, plutôt que de cliquer sur les CommanButtons dans UserForm les remplacer par mon clavier numérique. Puis remplacer "Valider Payant" par la touche v sur mon clavier et "Valider GRATUIT" par g, aussi "ENREGISTRER la commande" par la touche e. Pour travailler plus vite, avec la souris çà prends un peut plus de temps. Pour le reste çà ira.
Je vous remercie beaucoup
Cordialement
http://cjoint.com/c/HLijligmWS8
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5593
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
Bonjour,

Ajouter une TextBox et mettre ce code:

Private Sub TextBox5_Change()
Dim texte As String
texte = TextBox5.Text
Select Case texte
Case Is = "1"
Call CommandButton1_Click
Case Is = "2"
Call CommandButton2_Click
Case Is = "3"
Call CommandButton3_Click
Case Is = "4"
Call CommandButton4_Click
Case Is = "5"
Call CommandButton5_Click
Case Is = "6"
Call CommandButton6_Click
Case Is = "7"
Call CommandButton7_Click
Case Is = "8"
Call CommandButton8_Click
Case Is = "9"
Call CommandButton9_Click
Case Is = "v"
Call CommandButton23_Click
Case Is = "e"
Call CommandButton20_Click
 Case Else
'MsgBox "Aucun raccourci clavier", vbCritical, "Raccourci clavier"
End Select
TextBox5.SetFocus
TextBox5.Text = ""
End Sub
Private Sub UserForm_Activate()
 TextBox5.SetFocus
End Sub
Private Sub userForm_Initialize()
With Me
        .startUpPosition = 3
        .Left = Application.Width - Me.Width
    End With
End Sub


Voilà


@+ Le Pivert
cs_Le Pivert
Messages postés
5593
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 décembre 2018
> mic6259
Messages postés
172
Date d'inscription
mercredi 4 mars 2015
Dernière intervention
8 décembre 2018
-
Çà fonctionne très bien, mais le seul soucis c'est qu'il faut rester sur le TextBox5, car je navigue dans les autres CommandButtons.

la solution cliquer sur l'UserForm pour rendre le focus à la TextBox5 comme ceci:

Private Sub UserForm_Click()
TextBox5.SetFocus
End Sub


@+
cs_Le Pivert
Messages postés
5593
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 décembre 2018
-
C'est la plus simple.

il y a la méthode avec Application.SendKey, mais s'utilise toujours avec la combinaison des touches Alt, Ctrl , Maj etc.

http://docs.microsoft.com/fr-FR/office/vba/api/Excel.Application.SendKeys

@+
mic6259
Messages postés
172
Date d'inscription
mercredi 4 mars 2015
Dernière intervention
8 décembre 2018
-
Excusez moi mais j'apprends doucement, mais comment je doit faire.
cs_Le Pivert
Messages postés
5593
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 décembre 2018
-
Voir ceci, mais cela n'est pas utilisable dans ton cas, a part pour ouvrir l'UserForm

http://www.info-3000.com/vbvba/raccourciclavier.php
mic6259
Messages postés
172
Date d'inscription
mercredi 4 mars 2015
Dernière intervention
8 décembre 2018
-
D'accord merci beaucoup
Commenter la réponse de cs_Le Pivert
毒液:致命守护者 Venom 2018 HD720P AAC x264 English CHS-ENG BTDX8 | For quick fix on Gmail forgot password, avail our reliable customer service 1-855-479-1999 | Tubemate apk full