Mise en forme des couleurs de cellule dans un tableau croisé

Question

Avant tous je vous présente mes meilleurs vœux pour cette nouvelle année. je voudrais savoir si dans un tableau croisé on mettre les cellules en couleur d’après une table. Dans le fichier joint j'ai une feuille "TC repulpage couleur" et une seconde " couleur" En fonction de ma table des couleurs dans la feuille " couleur" et sachant que la disposition du tableau croisé ne change pas. je souhaite dans ma feuille "TC repulpage couleur", que les cellules des colonne A à E qui ont du texte soient de couleur identique à la référence indiquée en colonne D et celles des cellules de la colonne F et G soient identique à la référence en colonne F pour des raisons de grosseur du fichier j'ai supprimé un parti du tableau croisé et la table de couleur. par avance je vous remercie de votre aide philippe...

Steelson · Accepted Answer

La difficulté réside ici au fait qu'en colonne D il s'agit de texte.

Fais un lancement de la macro à chaque actualisation du TCD.

Sub MFC()

tbl = Sheets(1).Range("A1").CurrentRegion
ActiveSheet.Cells.FormatConditions.Delete

For i = LBound(tbl) To UBound(tbl)
    With Columns("A:E")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D1=""" & tbl(i, 1) & """"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = tbl(i, 3)
        .FormatConditions(1).StopIfTrue = False
    End With
Next

For i = LBound(tbl) To UBound(tbl)
    With Columns("F:G")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=F1=" & tbl(i, 1)
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = tbl(i, 3)
        .FormatConditions(1).StopIfTrue = False
    End With
Next

End Sub

10repulpage-couleur-testv1.xlsm (25.50 Ko)

Steelson · Answer

... c'est simple, tu fais une MFC avec enregistrement de macro tu affectes les couleurs (chiffrées) dans ta feuille 1 tu modifies la macro pour y inclure les données...