gosselien
XLDnaute Barbatruc
Bonjour à tous,
je suis sous XL2007 et j'ai voulu tester cette macro et je n'ai aucun résultat; y-a-til des participants ici avec une version 2010-2013-2016 qui pourraient tester ça ?
Merci
je suis sous XL2007 et j'ai voulu tester cette macro et je n'ai aucun résultat; y-a-til des participants ici avec une version 2010-2013-2016 qui pourraient tester ça ?
Merci
VB:
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub