Comment forcer la saisie en majuscules dans un champs même si celui ci est
saisie en minuscules?
Et comment mettre systématiquement une majuscule en début de saisie?
Avant ou apres mise a jour, tu peux mettre le code VBA : TextBox1.text=UCase(TextBox1.text) Cela te mettra ta zone de texte en majuscules.
Si tu ne veux que le premier caractere : TextBox1.text=UCase(left(textbox1.text),1) & right (textbox1.text,len(textbox1.text)-1)
Si tu as un message d'erreur, essaye de mettre cette commande sur l'evenement LostFocus.
-----Message d'origine----- Bonjour
Comment forcer la saisie en majuscules dans un champs même si celui ci est
saisie en minuscules? Et comment mettre systématiquement une majuscule en début de saisie?
merci
.
Jean
Bonjour "HA",
Pour forcer la mise en majuscule d'une saisie, il te faut placer une instruction VBA dans une procédure evenementielle du champ, par exemple celle qui agit après avoir perdu le focus :
Private Sub NomduChamp_LostFocus()
NomduChamp=strconv(nomduchamp,vbUpperCase) ' Forcer la majscule
NomduChamp=strconv(nomduchamp,vbProperCase) ' Forcer la majscule sur la première lettre de TOUS les mots.
End sub
A+ Jean
Bonjour "HA",
Pour forcer la mise en majuscule d'une saisie, il te faut
placer une instruction VBA dans une procédure
evenementielle du champ, par exemple celle qui agit après
avoir perdu le focus :
Private Sub NomduChamp_LostFocus()
NomduChamp=strconv(nomduchamp,vbUpperCase) ' Forcer la
majscule
NomduChamp=strconv(nomduchamp,vbProperCase) ' Forcer la
majscule sur la première lettre de TOUS les mots.
Pour forcer la mise en majuscule d'une saisie, il te faut placer une instruction VBA dans une procédure evenementielle du champ, par exemple celle qui agit après avoir perdu le focus :
Private Sub NomduChamp_LostFocus()
NomduChamp=strconv(nomduchamp,vbUpperCase) ' Forcer la majscule
NomduChamp=strconv(nomduchamp,vbProperCase) ' Forcer la majscule sur la première lettre de TOUS les mots.
