bonjour,


j'ai un TCD avec en colonne des mois. l'idée est de colorier le mois en cours...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
' je selectionne les données
ActiveSheet.PivotTables("TCD-all").PivotSelect "", xlDataOnly, True

' j'efface les MFC précedentes
Selection.FormatConditions.Delete

'je crée ma mise en forme
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(F$5=NOMPROPRE(TEXTE(AUJOURDHUI();""mmmm""));VRAI;FAUX)"

' j'affecte la modif
Selection.FormatConditions(1).Interior.ColorIndex = 40

mon problème est d'arriver a lui dire : tu prend F quand tu es sur la colonne F, G sur G, etc....



sinon, j'ai essayé de le faire sur la premier colonne puis de recopier sur les autres avec autofill mais je n'arrive pas a prendre que la Mise en forme conditionnelle (la recopie prend aussi la bordure, la couleur de fond, etc.,...)

merci d'avance