Vba, améliorer un code de mise en forme

  • Initiateur de la discussion Initiateur de la discussion fb62840
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fb62840

XLDnaute Impliqué
Bonjour à toutes et tous,

Voici ma question :
Comment faire pour mettre en forme un numéro de téléphone qui se trouve dans une cellule qui contient aussi du texte ?

Pour le moment voici comment je fais cela :
Code:
'J'assigne à la variable Norigin la valeur de la variable (array) tablo(i, 6) qui est en fait un numéro de téléphone sur 9 chiffres (il manque le 0 initial)
Norigin = Mid(Tablo(I, 6), 1, 9)
'Ensuite "pas à pas" j'ajoute des espace entre chaque portion du numéro
N1 = "0" & " " & Mid(Norigin, 1, 1)
N2 = N1 & " " & Mid(Norigin, 2, 2)
N3 = N2 & " " & Mid(Norigin, 4, 2)
N4 = N3 & " " & Mid(Norigin, 6, 2)
N5 = N4 & " " & Mid(Norigin, 8, 2)

'Puis je place N5 avec les autres variables dans la cellule
.Range("C1").Value = Tablo(I, 1) & " " & Tablo(I, 2) & N5

Je pense que l'on peut mieux faire, des idées ?
 
Dernière édition:
Re : Vba, améliorer un code de mise en forme

Bonjour,

Merci pour cette nette amélioration du code, il me reste encore énormément à apprendre.

Merci à toutes ceux et celles qui n'hésitent pas à partager leur savoir.

Bonne journée

Salut fb62840 et le forum
Un code dans ce sens :
Code:
.Range("C1").Value = Tablo(I, 1) & " " & Tablo(I, 2) & "0" & format(Norigin,"0 00 00 00 00")
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
Réponses
3
Affichages
569
Réponses
7
Affichages
704
Réponses
8
Affichages
940
Retour