Format de données dans userform

Bonjour à vous tous,

et d'abord merci pour ce forum que je parcours plusieurs fois par jour au travail et à qui je dois tout ce que je sais de VBA.

Mon problème : dans un userform l'utilisateur doit dans un des champs entrer une donnée qui doit être au format de une ou deux lettres. Ex : AA, GT, K,...

Comment vérifier, par exemple lors du clic sur "valider", que cette donnée est au bon format?

Question annexe : comment mettre en majuscule une entrée faite en minuscule? RESOLU


D'avance merci !

Bonjour,
Pour le format des caractères tu peut regarder ici.
Cordialement,
Jonathan

Bonjour,

Soit tu utilises l'évènement Keypress, qui te donne le code ASCII de ce qui est frappé et .... élimine (si pas lettre) ... ou transforme (si minuscule)

Buche : Ucase, Asc et Chr...
Pour éliminer : il suffit de quelque chose disant

Code:

---

if isnumeric(chr(keyascii)) then keyascii = 0

---

et pour forcer en majuscules, :

Code:

---

keyascii = asc(Ucase(chr(Keyascii)))

---

-soit à la validation :
tu contrôles la conformité (avec Like, par exemple)
et tu bascules systématiquement en majuscules (avec strConv, par exemple)

Ouvre ton aide en ligne sur chacun de ces mots

Merci beaucoup Jonathan Raucy et UcFoutu,

Dès le premier essai Ucase a fait exactement ce que je voulais concernant la mise en majuscule.


Une idée sur le problème du format en une ou deux lettres ? (je sais , j'abuse...)

Jete un xoup d'oeil ici peut etre que....

Merci Jonathan ! :D
Ton lien (pourtant vers un doc que j'avais déjà lu, mais je devais être fatiguée...) m'a permi de résoudre le problème avec le code que voilà :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub textBox2_keyPress(ByVal keyAscii As MSForms.ReturnInteger) keyAscii = Asc(UCase(Chr(keyAscii))) End Sub   Private Sub TextBox2_Change() TextBox2.MaxLength = 2 'nb caractères maxi autorisé dans le textbox On Error Resume Next If IsNumeric(Right(TextBox2, 1)) Then TextBox2 = Left(TextBox2, Len(TextBox2) - 1) End If   End Sub

---

Maintenant il n'accepte plus que des lettres, maxi deux, et toujours en majuscule. Ah, la magie de l'informatique...