Discussion :

[b3401m]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

C'est tout simplement la propriété AppliesTo.
https://msdn.microsoft.com/en-us/vba...property-excel
https://msdn.microsoft.com/en-us/vba...n-object-excel