Lister les règles des formats condi

[gosselien]

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

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

 

[Chris401]

Bonsoir

OK sur 2013

Cordialement
Chris

 

[Shakki]

Bonjour,

Je suis sur Excel 2010 et ça ne fait rien.

A+

 

[Staple1600]

Bonsoir à tous

->gosselien
Une suggestion en passant.
Pourquoi ne pas pas utiliser SpecialCells pour spécifier Rng ?

SpecialCells(xlCellTypeAllFormatConditions).Cells

PS: Ce code m'en rappelle un lu chez Jerry Beaucaire

 

[gosselien]

Bonsoir à tous

->gosselien
Une suggestion en passant.
Pourquoi ne pas pas utiliser SpecialCells pour spécifier Rng ?

SpecialCells(xlCellTypeAllFormatConditions).Cells

PS: Ce code m'en rappelle un lu chez Jerry Beaucaire

Il vient d'ici:

http://www.teachexcel.com/excel-tutorial/list-all-conditional-formatting-formulas-in-excel_1574.html

 

[Lone-wolf]

Bonsoir à tous

Je viens de faire un test. À part le nom de la feuille "Feuil1", le reste ne donne rien. À moins de faire déjà une MFC.
Je vais essaier de mon côté(droite ou gauche?? Je ne sais pas encore )

EDIT: C'est bien ce que je pensais, il faut d'abord appliquer la MF et ensuite exécuter la macro.

 

[Dranreb]

Bonsoir.
Attention: j'ai découvert que, pour Excel 2016 en tout cas, les membres de la collection FormatConditions ne sont pas toujours du type FormatCondition.
Mais ils ont tous une propriété Type qui peut valoir : xlCellValue, xlExpression, xlBlanksCondition, xlColorScale. Pour ce dernier c'est un type ColorScale. Je me suis arrêté là pour le moment dans un Select Case mais il y a encore en commentaire aussi :
' Case xlDatabar: Case xlTop10: Case XlIconSet: Case xlUniqueValues: Case xlTextString
' Case xlTimePeriod: Case xlAboveAverageCondition
' Case xlErrorsCondition: Case xlNoErrorsCondition
Et j'ignore pour l'instant quels types ils ont…
(Je développe au coup par coup pour mes réglages de couleurs selon ce que je rencontre)

 

[Si...]

Salut

Bonjour,

Je suis sur Excel 2010 et ça ne fait rien.

A+

J’ai des réponses avec ma version 2010 et le fichier joint

 

[gosselien]

Salut

J’ai des réponses avec ma version 2010 et le fichier joint

Ton fichier en 2007 ne donne rien dans la colonne formule... donc pas compatible avec 2007
Mais c OK sur MAC 2011
(v acheter Excel 2016 PC moi bientot )
j'ai rajouté une colonne dans le code qui donne la version Excel (12-XL 2007)

 

[Shakki]

Salut

J’ai des réponses avec ma version 2010 et le fichier joint

Bonjour,

Effectivement, ça fonctionne sur 2010. J'ai dû testé sur un fichier sans MFC, je ne vois que ça.
Toutes mes confuses

A+