Provoquer un évenement avec une lettre

max850 Messages postés 304 Date d'inscription Statut Membre Dernière intervention -
max850 Messages postés 304 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Provoquer un évenement avec une lettre
Clavier iphone chiffre et lettre - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Caractere speciaux lettre - Guide
Changer lettre disque dur - Guide
Chiffre en lettre - Télécharger - Outils professionnels

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 304 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 2 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour
Dans les event de ta textbox tu dois pouvoir trouver le keypress

max850 Messages postés 304 Date d'inscription Statut Membre Dernière intervention 3

merci jordan45 pour ta contribution
j'ai adapté la réponse de f894009 à mon cas et ça fonctionne très bien

Discussions similaires

Disparition de l'onglet "événements" sur les Groupes FB

Trouve une phrase à partir de lettre données

Expéditeur lettre reccomandé AR

Votre réponse

Discussions similaires