1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub MeFC()
Dim Pt As PivotTable, Pf As PivotField, X As String
'nom du TCD
Pt = ActiveSheet.PivotTables("Tableau croisé dynamique5")
'vérifier que la mise à jour s'adresse au bon TDC (si plus d'un TDC dans la feuille).
If Pt.Name = ActiveSheet.Name Then
'CHAMPS CONCERNE
Pf = ActiveSheet.PivotFields("Tps moy de comm / appel")
'X contient l'adresse de la plage du champ
X = Pf.DataRange.Offset(, 1).Address
With ActiveSheet.Range(X).FormatConditions
'Supprime l'ancienne mise en forme conditionnelle
.Delete
'Ajoute une condition (Vrai lorsque la cellule est inférieur à 0.00694444)
.Add xlCellValue, xlLess, "=0,00694444"
' .FormatConditions.Add Type:=xlExpression, Formula1:="=$F$8>0,00694444"
'Le format de la mise en forme conditionnelle
With .Interior
.ThemeColor = xlThemeColorLight2 'rose (vert3)
.TintAndShade = 0.599993896298105 'pale
End With
End With
End If
End Sub |
Partager