Provoquer un évenement avec une lettre

Messages postés
292
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 octobre 2019
- - Dernière réponse : max850
Messages postés
292
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 octobre 2019
- 4 oct. 2019 à 12:14
Bonsoir la communauté
Je voudrais qu'en rentrant une lettre (mettons L) dans une textbox de mon userform cela me déclenche l'apparition d'une combobox que j'ai rendu invisible dans mon initialization de cet userform
j'ai rentré un bouton command qui me déclenche bien la visibilité de ma combobox mais il y a certainement une solution beaucoup plus simple qui m'éviterait d'utiliser un bouton command
Pourriez vous m'aider svp
merci
Afficher la suite 

2 réponses

Messages postés
14786
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2019
1176
0
Merci
Bonjour,
structure du code en attendant se savoir si majuscule ou pas.
Private Sub TextBox1_Change()
    If TextBox1 <> "" Then
        ComboBox1.Visible = True
    Else
        ComboBox1.Visible = False
    End If
End Sub
max850
Messages postés
292
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 octobre 2019
2 -
bonjour f894009
j'ai adapté ton code pour pouvoir entrer une lettre differente en majuscule et faire apparaitre la combobox correspondant à la lettre
Private Sub TextBox5_Change()
TextBox5.MaxLength = 1
If TextBox5 = "L" Then
ComboBox3.Visible = True
ElseIf TextBox5 = "M" Then
ComboBox2.Visible = True
ElseIf TextBox5 = "V" Then
ComboBox1.Visible = True
End If

End Sub


Private Sub textbox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 76
KeyAscii = KeyAscii 'force l'entrée de la lettre majuscule L
Case 77
KeyAscii = KeyAscii 'force l'entrée de la lettre majuscule M
Case 86
KeyAscii = KeyAscii 'force l'entrée de la lettre majuscule V
Case Else
KeyAscii = 0
End Select
End Sub

et cela me satisfait pleinement
merci beaucoup pour ton aide
Commenter la réponse de f894009
Messages postés
26486
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 octobre 2019
1825
0
Merci
Bonjour
Dans les event de ta textbox tu dois pouvoir trouver le keypress
max850
Messages postés
292
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 octobre 2019
2 -
merci jordan45 pour ta contribution
j'ai adapté la réponse de f894009 à mon cas et ça fonctionne très bien
Commenter la réponse de jordane45