Vba
Fermé
keno
-
21 avril 2005 à 11:12
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 21 avril 2005 à 12:01
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 21 avril 2005 à 12:01
1 réponse
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
21 avril 2005 à 11:28
21 avril 2005 à 11:28
salut,
Ucase() est ce que tu cherches...
Ucase() est ce que tu cherches...
21 avril 2005 à 11:34
mais je n'y arrive toujours pas car j'aimerais intégrer Ucase à l'événement keypress de la textbox.et je ne comprends pa bien car il y a une histoire de code ascii dans cet evenement keypress.
21 avril 2005 à 12:01
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode >= 65 And KeyCode <= 90 Then
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) & Chr(KeyCode)
End If
End Sub