usf: mise en forme numéro téléphone

Bonjour à tous,

Par exemple :

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Text = Format(ComboBox1.Text, "000-000-0000")
End Sub

Ou :

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Text = Format(ComboBox1.Text, "(000) 000-0000")
End Sub

@+

Ronan

Bonjour Ronan et au forum

Je te remercie c'est exactement ce que je voulais.

Je voulais aussi faire le même genre de mise en forme pour le code postal ayant le format suivant : H1H 1H1

Mais je ne réussi pas.

Encore une fois merci.


Jean

Bonsoir à tous,

Je ne comprends pas le format que tu souhaites obtenir :

H1H 1H1

???

@+

Ronan

Bonjour à tous

Ce n'était pas une blague.

Mille excuses si je me suis mal exprimé.

Au Canada, le code postal se compose de la façon suivante: une lettre, un chiffre, une lettre, un espace, un chiffre, une lettre et un chiffre.

Ce que je voulais, c'est une façon de valider la saisie dans le combobox pour si cette séquence n'est pas respecté, il y est un message d'erreur.

Encore une fois merci d'avance.


Jean

Bonsoir à tous,

Pour la saisie de ton code postal, essaie ceci :

Sub SaisieCodePostal()

CodePostal = "a1z2d3"
If Len(CodePostal) <> 6 Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 1, 1)) = True Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 2, 1)) = False Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 3, 1)) = True Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 4, 1)) = False Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 5, 1)) = True Then GoTo GestionErreur
If IsNumeric(Mid(CodePostal, 6, 1)) = False Then GoTo GestionErreur
CodePostal = Format(CodePostal, "@@@ @@@")
Exit Sub
GestionErreur:
MsgBox "Vérifier votre saisie"

End Sub

@+

Ronan