Discussion :

[_Nimy_]

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 !

[Jonathan Raucy]

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

[ucfoutu]

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 :

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

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

et pour forcer en majuscules, :

Code :

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

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

[_Nimy_]

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...)

[Jonathan Raucy]

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

[_Nimy_]

Merci Jonathan !
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 :

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

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...