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
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
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
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
4 oct. 2019 à 07:00
Bonjour,
structure du code en attendant se savoir si majuscule ou pas.
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
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
4 oct. 2019 à 07:05
Bonjour
Dans les event de ta textbox tu dois pouvoir trouver le keypress
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
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
j'ai adapté la réponse de f894009 à mon cas et ça fonctionne très bien
4 oct. 2019 à 12:13
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