Transposer la couleur de fond

[Gilbert La Porte]

Bonsoir,

C'est encore moi avec mes problèmes de couleurs de cellules. Je vous expose mon dernier problème.

Dans deux feuilles d'un classeur, je voudrais reprendre la couleur de fond d'une cellule (B3) de la feuille 2 par exemple, dans une cellule B3 de la feuille 1. Je peux faire la manip en copiant Feuille 2!B3 puis un Collage spécial <Tout - Coller avec liaison>. Le résultat est bon la première fois. Si je modifie de nouveau la couleur de fond de la cellule Feuille 2!B3, le changement de couleur n'est pas répercuté dans Feuille 1!B3 comme lorsqu'il s'agit d'un nombre ou d'une chaîne de caractère.

Dans mon problème, j'ai bien sûr beaucoup de cellules à faire changer de couleur. Sans avoir à refaire à chaque fois Copier-collage spécial, etc...

Qui pourrait m'aider ?

Merci.

En pièce jointe zippée un exemple de mon problème.

 

[Moa]

Salut Gilbert la porte !

Une petite question, as-tu beaucoup de format de cellules différents dans ta feuille.

Car si tu n'as que des couleurs, c'est assez simple, tu sélectionnes toute ta page et tu fais un seul copier / collage spécial / Format.

Et par la suite tu te fais une petite macro.

Sub Couleur()
Range("B3:H9").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub

@ +

Moa

 

[Gilbert La Porte]

Merci pour ton idée. J'ai essayé de faire une Macro Function :

Public Function CopieCouleurCellule(CELLULE_A_COPIER As Range) As Variant
CopieCouleurCellule(CELLULE_A_COPIER) As Variant
CopieCouleurCellule.Interior.Color.Index=CELLULE_A_COPIER.Interior.Color.Index
End Function

Mais j'ai un message d'erreur. Je ne suis pas fort en VBA :-~, je l'avoue.
Je vais essayer ton idée.