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

[Jean]

Bonjour à tous

Je voudrais savoir s'il est possible d'appliquer une mise en forme pour un numéro de téléphone saisie dans un combobox via un usf.

Voici les deux modèles de numéro:
modèle A : 999-999-9999
modèle B : (999) 999-9999

Merci d'avance pour votre aide.


Jean

 

[Ronan]

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

 

[Jean]

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

 

[Ronan]

Bonsoir à tous,

Je ne comprends pas le format que tu souhaites obtenir :

H1H 1H1

???

@+

Ronan

 

[Jean]

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

 

[Ronan]

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