Copier un format de cellule

[Chris]

Salut à tous,

J'ai un tableau avec un très grand nombre de valeurs texte dans une colonne.

Je souhaite mettre en évidence certaines de ces cellules en disant par exemple (avec une macro) :

si cellule contient le mot "xxx", alors mettre cette cellule dans le même format que la cellule E1 (couleur de remplissage, de police, en gras ou non...)

si cellule contient le mot "yyy", alors mettre cette cellule dans le même format que la cellule F1

etc etc

C'est une sorte de format conditionnel, mais avec bien plus de 3 possibilitées, qui effectue un genre de copier - format uniquement...

 

[Minick]

Salut,

Essay la piece jointe.

Cela devrai te convenir

@+
Minick

 

[Chris]

OK, c'est parfait !

Mais pour info, il n'existe donc aucune instruction qui fait :

Range("C5") = Range("F1").format

(écrit comme ça, ça marche pas)

 

[Minick]

re,

Je ne crois pas qu'il existe une telle fonction.
Mais je suis loin de tout connaitre.

@+
Minick

 

[Lord Nelson]

Salut Chris et Minick,
Très intéressante ta solution Minick, cependant on peut se passer d'une opération de copie/collage spécial en jouant sur les propriétés des cellules.

Par exemple :
'Format de police
Range("B2").Font.Name = Range("A1").Font.Name
Range("B2").Font.Color = Range("A1").Font.Color
Range("B2").Font.Size = Range("A1").Font.Size
'Bordures
Range("B2").Borders.LineStyle = Range("A1").Borders.LineStyle
Range("B2").Borders.Color = Range("A1").Borders.Color
Range("B2").Borders.Weight = Range("A1").Borders.Weight
'Motif
Range("B2").Interior.Color = Range("A1").Interior.Color
'Alignement
Range("B2").HorizontalAlignment = Range("A1").HorizontalAlignment

En revanche, je n'ai pas trouvé le moyen de passer le format complet d'une cellule à une autre en une seule ligne...

A+
LN

 

[Chris]

Ok ! Merci quand même pour l'aide. Je m'en sortirai sans pb !