Discussion :

[sanfour_walhan]

bonjour comment puis-je toujours afficher les lettre en majiscule dans une zone de text

[Delbeke]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private sub Text1_Change()
 Text1.Text = Ucase(Text1.Text)
End Sub

[Najdar]

Delbeke, ta solution ne peut pas fonctionner pendant la saisie : A chaque frappe le curseur revient au début.

Par contre c'est super pour écrire en verslen

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private sub Text1_Change()
 Text1.Text = Ucase(Text1.Text)
End Sub

La méthode suivante ne déplace pas le curseur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

[Delbeke]

Oui, mais elle ne fonctionne pas si on copie dans le textbox

[Najdar]

Sanfour_Walhan, à toi de choisir la méthode en fonction de ton utilisation.

[Le Pharaon]

Je préfère choisir la méthode avec l'évenement KeyPress et empêcher les copie-coller