Valider TextBox par touche entrée avec condition.

[Arpette]

Bonsoir à toutes et à tous,
je souhaite valider le contenu d'une TextBox si le nombre de caractère dans la TextBox est > 5 et que la touche entrée est actionnée.
Merci de votre
@+

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
    Dim dernLign As Long
    dernLign = Range("A42").End(xlUp).Row + 1
    If Len(TextBox1.Value) > 5 And KeyCode = 13 Then 'Ici
        Else
    Cells(dernLign, 1) = TextBox1.Text
    TextBox1.Text = ""
      
    End If
End Sub

 

[Robert]

Re : Valider TextBox par touche entrée avec condition.

Bonsoir Arpette, bonsoir le forum,

Pas sûr de bien avoir compris où tu voulais en venir mais peut-être comme ça :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dernLign As Long
dernLign = Range("A42").End(xlUp).Row + 1
If Len(TextBox1.Value) <= 5 Then
    Cancel = True
Else
    Cells(dernLign, 1) = TextBox1.Text
    TextBox1.Text = ""
End If
End Sub

Parce que si tu cliques sur [Entrée], normalement tu valides automatiquement la saisie de la TextBox...

 

[Arpette]

Re : Valider TextBox par touche entrée avec condition.

Bonsoir Robert, merci de ta réponse mais ça ne foctionne pas. Je te joints le fichier. La TextBox est en A43.
Merci de ton aide
@+

 

[Staple1600]

Re : Valider TextBox par touche entrée avec condition.

Bonsoir Arpette, Robert, le fil

Arpette
Pour info, le TextBox possède la propriété MaxLength
(qui pourrait s'avérer utile ici)

 

[Robert]

Re : Valider TextBox par touche entrée avec condition.

Bonsoir Arpette, bonsoir le forum,

En effet c'est plus clair car je pensais à une TextBox d'une UserForm et pas sur un onglet.
J'ai testé comme ça et il me semble que ça marche... Regarde si ça te convient :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim dernLign As Long
dernLign = Range("A42").End(xlUp).Row + 1
If Len(TextBox1.Value) > 5 And KeyCode = 13 Then 'Ici, tant que je n'ai pas appuyer sur enter, j'écris dans la TextBox
    Cells(dernLign, 1) = TextBox1.Text
    TextBox1.Text = ""
End If
End Sub

 

[Arpette]

Re : Valider TextBox par touche entrée avec condition.

Bonsoir Robert, Staple, le forum,
merci Robert c'est nickel. Merci également Staple pour MaxLength dans propriétés de la TextBox.
@+