tontonexcel
XLDnaute Occasionnel
Bonjour à tous
Je développe un petit formulaire qui contient 6 textbox, je souhaite imposer la saisie alpha en majuscules (au fur et à mesure de la saisie) j'ai donc trouvé ceci qui fonctionne très bien
Ma problématique est que je voulais optimiser mon code et créer une sous procédure pour éviter de copier coller le code x fois (j'aurais peut-être plus de textBox)
Voici le code qui ne fonctionne pas (les caractères restent en minuscules)
J'ai essayé de bricoler en déclarant notamment la variable KeyAscii en tête de module (voire en public) mais cela ne fonctionne pas. Lorsque je bascule en pas à pas la variable KeyAscii n'est pas initialisée et je pense qu'étant événementielle elle ne peut pas être prise en charge dans une autre procédure
Y a t'il une solution ?
Merci d'avance pour vos réponses
Je développe un petit formulaire qui contient 6 textbox, je souhaite imposer la saisie alpha en majuscules (au fur et à mesure de la saisie) j'ai donc trouvé ceci qui fonctionne très bien
VB:
Private Sub tb_saisie_phrase_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim val_caractere As String
' Convertir valeur caractère en caractère alpha
val_caractere = Chr(KeyAscii)
' Convertir valeur alpha en caractère ANSI (MAJ TextBox)
KeyAscii = Asc(UCase(val_caractere))
End Sub
Voici le code qui ne fonctionne pas (les caractères restent en minuscules)
Code:
Private Sub tb_saisie_phrase_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call test
End Sub
' -------------------Sous proc
Sub test()
Dim val_caractere As String
' Convertir valeur caractère en caractère alpha
val_caractere = Chr(KeyAscii)
' Convertir valeur alpha en caractère ANSI (MAJ TextBox)
KeyAscii = Asc(UCase(val_caractere))
End Sub
Y a t'il une solution ?
Merci d'avance pour vos réponses