Msg box erreur de saisie

Bonjour,

à l'aide d'une Userform je viens renseigner une base de données, cependant dans une case je dois renseigner le numéros de téléphone et pour cela je doit mettre un message d'erreur qui permet de contrôler que le numéro comporte 10 chiffre!

Le problème est que je n'arrive pas à l'inclure dans mon code:

PS: le numéro est saisie dans le textbox3

Merci d'avance!

Private Sub CommandButtonAjout_Click()

Dim x As Integer

Sheets("Listing").Select

For x = 3 To 100

If Cells(x, 2).Value = 0 Then

Cells(x, 2) = TextBox1

Cells(x, 3) = TextBox2

Cells(x, 4) = TextBox3

Cells(x, 5) = TextBox4

Cells(x, 6) = TextBox5

Cells(x, 7) = TextBox6

Exit Sub

End If

Next x

End Sub

Salut le forum

Antho40 pas très explicite comme demande, quel format le numéro de téléphone...

Sinon juste après ton Dim x as Integer

If Not TextBox3 Like "[0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9]" Then
MsgBox "Erreur de saisie : Format 00 00 00 00 00 demandé"
Exit Sub
End If

ou si tu veux le tiret

If Not TextBox3 Like "[0-9][0-9][-][0-9][0-9][-][0-9][0-9][-][0-9][0-9][-][0-9][0-9]" Then
MsgBox "Erreur de saisie : Format 00-00-00-00-00 demandé"
Exit Sub
End If

Mytå

merci