Format conditionnel (VBA)
Bonjour,
Je veux recenser les formats conditionnels mis en place sur les cellules d'une feuille Excel via une macro.
J'arrive à retrouver le critère (formule) et le formatage du texte.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub AnalyserFormatConditionnel()
'
Dim intIdx As Integer
'
Sheets("Feuil1").Activate
Range("B4:B4").Select
For intIdx = 1 To Selection.FormatConditions.Count
With Selection.FormatConditions.Item(intIdx)
msgbox(.Formula1)
End With
With Selection.FormatConditions.Item(intIdx).Font
msgbox(.Background)
msgbox(.Italic)
msgbox(.Bold)
msgbox(.Color)
msgbox(.ColorIndex)
End With
Next intIdx
End Sub |
Par contre, je ne sais pas comment trouver les variables qui indiquent à quelle plage le format s'applique.
Merci d'avance pour votre contribution
