Modification dans UserForm
Résolu/Fermé
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
-
8 déc. 2018 à 10:14
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 12 déc. 2018 à 07:09
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 12 déc. 2018 à 07:09
A voir également:
- Vba excel: ajout modification ,consultation ,suppression sur un seul userform
- Liste déroulante excel - Guide
- Forcer la suppression d'un fichier - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Ajout rapide snap ✓ - Forum Snapchat
- Formule excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
8 déc. 2018 à 13:54
8 déc. 2018 à 13:54
Bonjour,
Ajouter une TextBox et mettre ce code:
Voilà
@+ Le Pivert
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
8 déc. 2018 à 14:21
Çà fonctionne très bien, mais le seul soucis c'est qu'il faut rester sur le TextBox5, car je navigue dans les autres CommandButtons.
Mais çà va quand même a mois qu'il y a une autre solution?
Cordialement
8 déc. 2018 à 14:47
il y a la méthode avec Application.SendKey, mais s'utilise toujours avec la combinaison des touches Alt, Ctrl , Maj etc.
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Application.SendKeys
@+