Message d'alerte si un nombre est inférieur à 6 chiffres

Bonjour le forum,

Pouvez-vous m'aider à écrire le code pour un nombre à insérer dans une Textbox ?

Dim i As Integer

' Je ne parviens pas à exprimer le nombre de caractères sous forme d'une valeur entière "i"
Textbox1.Content.Value = i

If i < 6 Then 
    MsgBox "La donnée doit être un nombre à 6 chiffres" & Chr(10), vbOKOnly + vbCritical, "Error"
    Exit Sub
End If

Merci de votre aide

Bonjour,

peut être comme ceci :

If Len(TextBox1) < 6 Then 
    MsgBox "La donnée doit être un nombre à 6 chiffres" & Chr(10), vbOKOnly + vbCritical, "Error"
    Exit Sub
End If

bonne journée

@+

Bonjour et merci pour cette réponse.

Ca fonctionne bien dans le cas ou nous sommes inférieur à 6 caractères mais quand je suis supérieur à 6, le message d'alerte ne s'affiche pas.

Ci dessous ma partie de code

If Not IsNumeric(Me.TextBox1) Then
    MsgBox "Le code SGDT doit être un nombre à 6 chiffres", vbExclamation
        If Not 5 < Len(TextBox1) < 7 Then
            MsgBox "Le code SGDT doit être un nombre à 6 chiffres" & Chr(10), vbOKOnly + vbCritical, "Error"
            Exit Sub
        End If
    Exit Sub
End If

Merci.

Re,

si tu veux autoriser uniquement 6 caractères, pas un de plus pas un de moins, modifie le test comme suit :

If Len(TextBox1) <> 6 Then

bon après midi

@+

Bonjour Pierrot.

Et merci d'avoir répondu

J'avais testé ta solution au tout début sous 2007 et ça buguai pareil c'est pourquoi j'avais opté pour du "If Not" ou un intervalle strict de nombres entiers.

Par contre je viens d'appliquer sous 2003 et ça marche parfaitement.

Mystère.

A+