XL 2010 Formater un numéro de téléphone dans une colonne

[jeanmi]

Bonjour à tous,

Est-il possible de formater un numéro de téléphone qui sera entré dans les cellules d’une colonne pour être toujours présenté pareille.

Je m’explique :

J’ai les cellules de la colonne L ou on entre des numéros de téléphone.

0690121212 ou 690121212 ou 690 12 12 12 ou autrement mais le numéro entré est toujours le bon sauf des fois le 0 en début qui manque.

Je souhaiterai que le numéro affiché dans la cellule soit toujours sous la forme 06 90 12 12 12

Merci de votre aide.

Cordialement

 

[mapomme]

Bonjour @jeanmi ,

Via VBA, à la saisie dans la colonne L.
On élimine les espaces et les points utilisés comme séparateurs.
Le code dans le module de la feuille "Feuil1" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
   If Target.Count <> 1 Then Exit Sub
   If Target.Column <> Range("L1").Column Then Exit Sub
   x = Val(Left(Replace(Replace(Target.Value & Space(10), " ", ""), ".", ""), 10))
   If IsNumeric(x) Then
      If x > 99999999 Then
         Application.EnableEvents = False
         Target.NumberFormat = "00 00 00 00 00": Target = x
         Application.EnableEvents = True
      End If
   End If
End Sub

 

[jeanmi]

Bonjour @jeanmi ,

Via VBA, à la saisie dans la colonne L.
On élimine les espaces et les points utilisés comme séparateurs.
Le code dans le module de la feuille "Feuil1" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
   If Target.Count <> 1 Then Exit Sub
   If Target.Column <> Range("L1").Column Then Exit Sub
   x = Val(Left(Replace(Replace(Target.Value & Space(10), " ", ""), ".", ""), 10))
   If IsNumeric(x) Then
      If x > 99999999 Then
         Application.EnableEvents = False
         Target.NumberFormat = "00 00 00 00 00": Target = x
         Application.EnableEvents = True
      End If
   End If
End Sub

Bonjour @mapomme à tous,

Un grand merci pour ce code qui fonctionne nickel.

Juste une petite question :
il y a des fois il y a deux numéros de tél dans la cellule alors j'en supprime un, Donc :

Est-il possible que je ne démarre la fonction que sur demande.

Merci d'avance pour la réponse.
Cordialement

 

[Cousinhub]

Bonjour,
Le format "Spécial/Numéro de téléphone" ne suffit pas?
Et toujours considérer qu'une cellule -> une info...
Bon dimanche

 

[jeanmi]

Bonjour,
Le format "Spécial/Numéro de téléphone" ne suffit pas?
Et toujours considérer qu'une cellule -> une info...
Bon dimanche

Bonjour @bhbh à Tous,

OK, je ne connaissais pas oui ça semble très bien

Cordialement

 

[mapomme]

Bonjour @bhbh ,

Bonjour,
Le format "Spécial/Numéro de téléphone" ne suffit pas?

Il me semble que ça ne marche pas à tous les coups :

• si la cellule est formatée texte
• ou bien si le numéro de téléphone comporte des espaces (donc c'est du texte)

 

[Cousinhub]

Hello @mapomme
Il faut bien évidemment que la cellule soit formatée ainsi avant la saisie, et rentrer le numéro sans espace.
Mais c'est comme tout avec Excel, il ne fait qu'obéir au quidam qui se situe entre le clavier et le dossier...
Bonne journée

 

[mapomme]

Re @jeanmi ,

Est-il possible que je ne démarre la fonction que sur demande.

Cliquer sur le bouton Hop!
Le code est dans le module de la feuille "Feuil1".

nota : les cellules qui ne semblent pas être des numéros de téléphone auront une police couleur bleu.

 

[jeanmi]

Re @jeanmi ,



Cliquer sur le bouton Hop!
Le code est dans le module de la feuille "Feuil1".

nota : les cellules qui ne semblent pas être des numéros de téléphone auront une police couleur bleu.

Bonjour @mapomme à tous,

Effectivement dans mon cas après des essais, votre proposition est vraiment très bien adaptée.
Merci beaucoup.

cordialement