[Résolu]Format de cellule spécial

[Thibault98]

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. 😕

 

[eriiic]

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

 

[Thibault98]

Re : Format de cellule spécial

D'accord, mais pour les nombres uniquement ? j'ai fais des essais mais je ne trouve pas.

Merci.

 

[JCGL]

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

 

[Thibault98]

Re : Format de cellule spécial

C'est pas grave, bonne soirée à tous.

@+

 

[JCGL]

Re : Format de cellule spécial

Bonjour à tous,

Un essai par VBA :

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

 

[eriiic]

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

 

[Thibault98]

Re : Format de cellule spécial

Bonsoir,

Merci à JCGL et à Eric, ça tourne !

Bonne soirée.
@+

Thibault.