Colorer les colonnes en fonction des couleurs des cellules

Bonjour le forum,

Je viens vers vous pour trouver solution à mon problème.

J'ai un tableau contenant plusieurs colonnes. Je souhaiterais colorer ce tableau automatiquement en fonction de la couleur des cellules.

Je vous remercie à l'avance !

Je vous mets en pièce jointe mon tableau !

Cordialement,

Bonsoir zinelamri ,

Le code suivant est à insérer dans le module rattaché à la feuille "Fiche". Les couleurs sont mises à jour à chaque activation de la feuille "Fiche".

Private Sub Worksheet_Activate()
Dim j&, couleur
   Application.ScreenUpdating = False
   For j = 1 To 12
      couleur = Sheets("Parametre").Range("b3").Offset(j - 1).Interior.Color
      Range("f4:f50").Offset(, j - 1).Interior.Color = couleur
   Next j
End Sub

Bonjour le forum,

Bonjour mafraise

Veuillez m'excuser pour le retard de ma réponse,et je vous remercie énormément pour votre réponse.

J'ai oublié de spécifier que les colonnes peuvent être variables. Cela signifie qu'elles peuvent être augmentées ou diminuées en fonction du tableau.

C'est pour cela que je préfère effectuer la macro manuellement.

Je vous remercie beaucoup.

Bien cordialement,

Bonjour

Bonjour à tous

Une variante

Bye !

gmb a écrit :

Erreur de destinataire/
Pardonnez - moi

Bye !

Bonjour GMB

Ça me fait un grand plaisir, GMB.