deux formats de téléphone saisissables dans un même textBox

[gacastex]

bonjour,

Compte tenu de l'ornière dont les conseils des forumeurs m'ont tiré la fois dernière, je reviens vers vous avec une nouvelle question!

Dans un userform, j'ai une textbox qui sert à saisir un numéro de téléphone;
Ce numéro peut être au format '00 00 00' ou '00 00 00 00' (pays étranger, les portables n'ont pas le même forma que les fixes)

j'ai déja inséré le code suivant :

If Me.TextNumAutorite.Text = "" Then
MsgBox "Vous devez saisir le numéro de téléphone de l'autorité à contacter"
Me.TextNumAutorite.SetFocus
Exit Sub
End If
If Not Me.TextNumAutorite.Text = Format(TextBox7, "00 00 00 00") Then
MsgBox "Le numéro de téléphone saisi n'est pas valide" End If

Mais comment faire pour qu'il me tolère les DEUX formats et n'affiche le message d'erreur que si le numéro compte 4 chiffres ou plus de 8 chiffres???

j'espere que j'ai été clair... si ce n'est pas le cas, faites le moi savoir!!

Je vous remercie d'avance pour votre temps et vos pistes

GaCastex

 

[gacastex]

Re : deux formats de téléphone saisissables dans un même textBox

Bonjour carcharodoncarcharias,

merci pour le code! je l'ai testé mais il ne fonctionne pas...j'avais pensé à la fonction "Or" aussi, mais ça ne me la reconnait pas....

Cependant, j'ai (à peine) adapté ton code comme ça :

If Not Me.TextNumAutorite.Text = Format(TextNumAutorite, "00 00 00 00") Then
If Not Me.TextNumAutorite.Text = Format(TextNumAutorite, "00 00 00") Then
MsgBox "Le numéro de téléphone saisi n'est pas valide"
End If
End If

Et ça marche!!!
Mais un problème persiste : si on laisse un espace à la fin du numéro, la saisie n'est pas reconnue...est ce qu'il y a un moyen de tolérer cette marge d'erreur???
Autre pti souci : quand les trois premiers chiffres sont collés (ex : "123 55 45"), la saisie est pourtant acceptée....

J'y retourne pour essayer de m'en dépatouiller!
merci pour ton aide, tu m'as mis sur la voie

A plus