Reprendre le format d'une autre cellule ?

[Thierry]

Bonjour,
J'aurais besoin du fonction pour recopier le format d'une cellule
Exemple
A1 = CHF 12'500.00 (format monétaire, police 12 gras, fond bleu)
A2 = lun 12.03.2004 (format date, police 10 non gras, fond blanc)
Si dans A3 je tape : "=A1" je voudrais un fond bleu, police 12, etc.... et
si je tape "=A2" un fond blanc, etc...
Est-ce possible ?
Merci pour toute info.

 

[Trevor Shuttleworth]

Thierry

oui, c'est possible. Vous avez besoin d'un fonction dans le VBA:

Function CellFormula(Rng As Range) As String
CellFormula = Rng.Formula
End Function

Maintenant vous pouvez utiliser le Conditional Formatting (comment on dit en
francais ?)

Par exemple:

Formule 1: =RIGHT(CellFormula(A3),2)="A1" c'est DROITE(... ?

et vous choisissez le format: format monétaire, police 12 gras, fond bleu

Formule 2: =RIGHT(CellFormula(A3),2)="A2"

et vous choisissez le format: format date, police 10 non gras, fond blanc.

Pardonez-moi pour mon francais mauvais.

Bon chance

Trevor