Provoquer un évenement avec une lettre

Fermé

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 4 oct. 2019 à 00:39
max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 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

A voir également:

Provoquer un évenement avec une lettre
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Caractere speciaux lettre - Guide
Changer la lettre d'un disque dur - Guide
Ecrire une lettre gratuitement - Télécharger - Dictionnaires & Langues

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
4 oct. 2019 à 07:00

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 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
4 oct. 2019 à 12:13

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 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
4 oct. 2019 à 07:05

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

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
4 oct. 2019 à 12:14

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

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

Trouve une phrase à partir de lettre données

Formule Excel pour afficher les mois (chiffres) en lettre

Dessiner avec son clavier et avec des lettres

Comment savoir si une lettre suivie est arrivée ?

Discussions similaires

Newsletters