Format personnalisé Résolu

Question

Bonjour,
je voudrais appliquer un format personnalisé conditionnel pour l'introduction de n° de téléphone internationaux.
Ex :
Si l'utilisateur introduit 
+33 44556677 le format doit afficher +33 44 55 55 77
+32 23456789 le format doit affichier + 32 2 345 67 89
+32 65223344 le format doit affichier + 32 65 22 33 44

Le format conditionnel dépend des premiers digits introduits :
+33 6  = GSM français
+33 X = n° de téléphone françaix
+32 2 = n° de téléphone belges format bruxelles
+32 X = n° de téléphoen belges autres que bruxelles
+32 477 = GSM Belges 
etc....

Si possible valider le format directement après l'appui de la touche entrée.
merci

dp_favresa · Accepted Answer

Bonjour,

Vous pouvez essayer le code ci-dessous :

'   Saisir le N° sans signe + et sans espace
    Dim Ntel As String
    Dim Partiel As String * 3
    Ntel = ActiveCell.Value
    Partiel = Left(Ntel, 3)
    Select Case Partiel
        Case "336"      ' GSM Français
            Selection.NumberFormat = """+""00"" ""00"" ""00"" ""00"" ""00"
        Case "331", "332", "333"  ' et ainsi de suite
            Selection.NumberFormat = """+""00"" ""0"" ""000"" ""00"" ""00"
'    et ainsi de suite
    End Select

Je ne sais pas comment lancer le code dès validation de la cellule

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient)                   dp

Format personnalisé

1 réponse

Discussions similaires