message d'erreur : vous devez saisir 5 chiffres

[yOUnII]

Bonsoir, j'aimerais savoir comment programmer un message d'erreur demandant à l'utilisateur de saisir 5 chiffres.

J'ai tapé ce code qui demande à l'utilisateur de saisir 11 caractères au total :

If S_INE.TextLength < 11 Then
MsgBox ("L'Identifiant National de l'Etudiant n'est pas complet :" & Chr(10) & "vous devez saisir onze caractères au total")
S_INE.SetFocus
Exit Sub
End If

En revanche je n'arrive pas trouver le code lorsqu'il s'agit de valeurs numériques :

If S_CP.Isnumeric <> 5 Then
MsgBox ("Veuillez saisir 5 chiffres")
S_CP.SetFocus
Exit Sub
End If

Ce code ne fonctionne pas, je m'en remet a vous pour un petit coup de pouce.

Merci d'avance.

 

[gilbert_RGI]

Re : message d'erreur : vous devez saisir 5 chiffres

Bonjour

comme ceci peut-être

If Not IsNumeric(S_CP) Or S_CP.TextLength <> 5 Then
MsgBox ("Veuillez saisir 5 chiffres")
S_CP.SetFocus
Exit Sub
End If

Cdlt

RGI

 

[Pierrot93]

Re : message d'erreur : vous devez saisir 5 chiffres

Bonsoir Younii

regarde peut être le code ci dessous, pour un textbox placé sur un USF :

   If Not IsNumeric(TextBox1) Or Len(TextBox1) <> 5 Then MsgBox "saisie invalide"

remplace "TextBox1" par le nom de ton textbox.

bonne soirée
@+

Edition : bonsoir Gilbert

 

[RENAUDER]

Re : message d'erreur : vous devez saisir 5 chiffres

Bonjour,
Je te propose ce code

Private Sub S_CP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(Me.S_CP) Then
        MsgBox ("Veuillez saisir des chiffres")
        Cancel = True
        Me.S_CP.Text = ""
    ElseIf Len(Me.S_CP) <> 5 Then
        MsgBox ("Vous devez saisir 5 chiffres")
        Cancel = True
        Me.S_CP.Text = ""
        Exit Sub
    Else
    End If
End Sub

 

[yOUnII]

Re : message d'erreur : vous devez saisir 5 chiffres

Merci à vous deux ça fonctionne impec
bonne soirée !