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

jeanmi · 5 Mars 2023

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 · 5 Mars 2023

Re @jeanmi ,

jeanmi à dit:
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.

mapomme · 5 Mars 2023

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" :

VB:

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 · 5 Mars 2023

mapomme à dit:
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" :

VB:

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 · 5 Mars 2023

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 · 5 Mars 2023

bhbh à dit:
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 · 5 Mars 2023

Bonjour @bhbh ,

bhbh à dit:
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 · 5 Mars 2023

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 · 5 Mars 2023

Re @jeanmi ,

jeanmi à dit:
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 · 5 Mars 2023

mapomme à dit:
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

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

jeanmi

XLDnaute Occasionnel

mapomme

mapomme

XLDnaute Barbatruc

Pièces jointes

jeanmi

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

jeanmi

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

jeanmi

XLDnaute Occasionnel

Discussions similaires