Discussion :

[SenseniX]

Bonjour à tous, la semaine dernière j'avais posé la question concernant la limite d'écriture aux caractère numériques.
cette fois j'aurai besoin de votre aide pour limiter l'écriture aux lettres et rien d'autres.

Pr info, les contraintes déjà appliquées sont : limite à 2 caractères, et en MAJ.
Merci à vous

[jp014]

Bonjour

Ci dessous un code pour limiter à 2 caractères, en majuscules et que des caractères alphabétiques.

Un code pour transformer les minuscules en majuscules et supprimer tous les autres caractères en jouant sur les propriétés du code ASCII.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox1_Change()
If TextBox1.SelStart >= 2 Then
    TextBox1 = Left(Me.TextBox1, 2)
End If
End Sub
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.SelStart >= 2 Then Exit Sub
Select Case KeyAscii
    Case > 122
         KeyAscii = 0
    Case Is < 65
        KeyAscii = 0
    Case Is > 91
            If KeyAscii <= 96 Then KeyAscii = 0
            If KeyAscii > 96 And KeyAscii < 122 Then  ' minuscule
                    KeyAscii = KeyAscii - 32
               'L'écart entre les minuscules et majuscule est de 20H soit 32 en décimal
            End If
    End Select
 
End Sub

A tester et à modifier

JP014

[Gorfael]

Salut SenseniX et le forum

Pr info, les contraintes déjà appliquées sont : limite à 2 caractères, et en MAJ.

Le but est d'avoir des réponses ou d'avoir des réponses correctes ?
Où : Sur une plage d'une feuille ? Un contrôle ?
Quand : À chaque saisie ? À la validation ?
Qu'est-ce qu'on fait en cas d'erreur : On efface le(s) caractère(s) impropre(s) ? On avertit et on boucle tant qu'il n'y a pas correction ?
Que foit-on s'il y a une seule lettre ? Une lettre et un espace ?

Que signifie contrainte "et en MAJ"
A+

[SenseniX]

J'ai mis "les contraintes déjà appliquées", cela signifie que j'ai déjà mis des critères qui fonctionnent sur ce champ.

- Il s'agit d'un userform.

- J'aurai souhaiter que lors de l'écriture dans le champs, seules les lettres soient possibles. Pas de numérique, ni de caractères , . ! ? .

Il ne peut y avoir d'erreurs car on limite l'écriture en lettres donc pas de messages d'erreur car toute autre écriture est interdite.

Ect-ce plus clair ?

[laetitia]

bonjour SenseniX jp014 Gorfael le forum si c'est dans une textbox tu peus faire cela dans proprietees de la textbox MaxLength =2

puis code

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If KeyAscii < 65 Or KeyAscii > 90 Then KeyAscii = 0
End Sub

[SenseniX]

Marche nikel, merci

[Gorfael]

Salut SenseniX et le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()
Select Case Me.TextBox1.TextLength
    Case 1
        If Not (UCase(Me.TextBox1) Like "[A-Z]") Then Me.TextBox1 = ""
    Case 2
        If Not (UCase(Me.TextBox1) Like "[A-Z][A-Z]") Then _
            Me.TextBox1 = Left(Me.TextBox1, 1)
    Case Else
        Me.TextBox1 = Left(Me.TextBox1, 2)
    End Select
End Sub

Autre proposition autorisant majuscules et minuscules (aa, aA, Aa ou AA)
A+

[laetitia]

re, Gorfael une autre piste utiliser KeyCode. majuscules & minuscules uniquement
j'ai pas trop testée !!! cela peut être interessant a voir!!!

Code :

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

1
2
3
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode: Case Is = 8, 13, 65 To 90: Case Else: KeyCode = 0: End Select
End Sub

[kiki29]

Salut, à tester et adapter au contexte