XL 2013 [vba] macro couleur cellules selon une liste

patricktoulon à dit:

Bonjour
un exemple de fichier serait le bien venu

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Un essai avec ce que j'ai compris.

Cliquez pour agrandir...

Private Sub CBnColorePhr_Click()
Dim Dic As New Dictionary, Cel As Range, Rng As Range, Texte
Set Rng = Feuil1.UsedRange: Set Rng = Rng.Rows(2).Resize(Rng.Rows.Count - 1).Cells
For Each Cel In Rng
Texte = Cel.Value
If Texte <> "" Then Dic(Texte) = Cel.Interior.Color
Next Cel
Set Rng = Me.UsedRange: Set Rng = Rng.Rows(2).Resize(Rng.Rows.Count - 1)
For Each Cel In Rng.Columns("C").Cells
Texte = Cel.Value
If Dic.Exists(Texte) Then Cel.Interior.Color = Dic(Texte)
Next Cel
For Each Cel In Rng.Columns("F").Cells
Texte = Cel.Value
If Dic.Exists(Texte) Then Cel.Interior.Color = Dic(Texte)
Next Cel

Cliquez pour agrandir...

Dranreb à dit:

Cette macro est dans le module d'un objet Worksheet représentant la feuille pour laquelle elle est faite.
Vous pouvez mettre la même procédure dans le module de l'autre feuille si vous voulez, ou en faire une version dans un module standard acceptant en argument l'objet Worksheet concerné.
Une autre possibilité: transmettre les Range concernés, Cible et Modèle, ainsi qu'une couleur par défaut :

Cliquez pour agrandir...