Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Résolu]Format de cellule spécial

  • Initiateur de la discussion Initiateur de la discussion Thibault98
  • 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 !

Thibault98

XLDnaute Occasionnel
Bonjour,

Comment écrire un format personnalisé pour que l'on obtienne :

si on tape : FR0851569874

Avec le format on obtient :

FR 08 51 56 9874

Merci et bon dimanche.

Thibault. 😕
 
Dernière édition:
Re : Format de cellule spécial

Bonjour,

Un format personnalisé c'est pour les nombres et tu saisis un texte.
Il ne faudrait pas saisir le FR et en format personnalisé :
"FR "00" "00" "00" "0000

Sinon formater ton texte par une formule dans la colonne d'à-coté.

eric
 
Re : Format de cellule spécial

Bonjour à tous,

Il n'est pas possible par MeFC ou Format Personnalisé de mettre une partie de texte en gras.
Il faut un bout de code VBA

A+ à tous
 
Re : Format de cellule spécial

Bonjour à tous,

Un essai par VBA :

VB:
Option Explicit

Sub Test()
    Dim Lig As Integer
1   With Columns("A:A")
2       .Font.Bold = False
3       .Interior.Pattern = xlNone
4       .Font.ColorIndex = xlAutomatic
5       .NumberFormat = "@"
6   End With
7   For Lig = 1 To Range("A65536").End(xlUp).Row
8       Range("A" & Lig).Characters(1, 2).Font.Bold = True
9       Range("A" & Lig).Characters(1, 2).Font.ColorIndex = 3
11      Range("A" & Lig).Characters(Start:=8, Length:=4).Font.Bold = True
12      Range("A" & Lig).Characters(Start:=8, Length:=4).Font.ColorIndex = 5
13  Next Lig
End Sub

A+ à tous
 

Pièces jointes

Re : Format de cellule spécial

Re, bonjour JCGL,

2 autres exemples.
Un par MFC, un autre qui traite une plage déjà en vba.
Contrairement à JCGL j'ai négligé le gras et plus pensé que tu voulais formater avec des espaces.

eric
 

Pièces jointes

- 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

Réponses
2
Affichages
263
Réponses
2
Affichages
142
Réponses
12
Affichages
373
Réponses
8
Affichages
830
Réponses
11
Affichages
667
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…