Imprimer les formats conditionnels d'une feuille de calcul

hello Céline,

je ne suis pas sur si c'est les conditions des MEFC que tu veux
imprimer, à tout hazard voici une possibilité.

Sub ListeFormatConditions()
LeType = Array("Operator", "xlExpression")
Operator = Array("xlBetween", "xlNotBetween", "xlEqual", "xlNotEqual",
"xlGreater", "xlLess", "xlGreaterEqual", "xlLessEqual")
On Error Resume Next
Set ff = Sheets.Add
For Each c In
Sheets("Feuil3").Cells.SpecialCells(xlCellTypeAllFormatConditions)
x = x + 1
With ff
.Cells(1, x) = "valeur1 : " & _
c.FormatConditions(1).Formula1
.Cells(2, x) = "Type1 : " & _
LeType(c.FormatConditions(1).Type - 1)
.Cells(3, x) = "Operator1 : " & _
Operator(c.FormatConditions(1).Formula1 - 1)

.Cells(4, x) = "valeur2 : " & _
c.FormatConditions(2).Formula1
.Cells(5, x) = "Type2 : " & _
LeType(c.FormatConditions(2).Type - 1)
.Cells(6, x) = "Operator2 : " & _
Operator(c.FormatConditions(2).Formula1 - 1)

.Cells(7, x) = "valeur3 : " & _
c.FormatConditions(3).Formula1
.Cells(8, x) = "Type3 : " & _
LeType(c.FormatConditions(3).Type - 1)
.Cells(9, x) = "Operator3 : " & _
Operator(c.FormatConditions(3).Formula1 - 1)
End With
Next
Cells.Columns.AutoFit
End Sub

isabelle

Bonjour à tous,
Est-il possible d'imprimer les formats conditionnels d'une feuille de
calcul ?
À l'aide de VBA ou autre...
Merci beaucoup,
Céline

Bonsour ® Céline,
un embryon de collectage à adapter....

(voir les propriètès de l'objet Formatcondition)
en testant le nombre de conditions
en testant chaque bordures
puis en mémorisant les résultats dans une nouvelle feuille

;-))
;-x

Sub celine()
For Each cell In Selection
If cell.FormatConditions.Count > 0 Then
'--ici mettre une boucle sur le nombre de conditions
With cell.FormatConditions(1)
MsgBox "Condition : " & .Formula1 _
& Chr(10) & "ligne style : " & .Borders.LineStyle _
& Chr(10) & "épaisseur : " & .Borders.Weight _
& Chr(10) & "couleur :" & .Borders.ColorIndex _
& Chr(10) & "police : " & .Font.Name _
& Chr(10) & "gras : " & .Font.Bold _
& Chr(10) & "couleur :" & .Font.ColorIndex _
, , "Format conditionnel " & cell.Address

End With
End If
Next

-----Message d'origine-----
Bonjour à tous,
Est-il possible d'imprimer les formats conditionnels
d'une feuille de

calcul ?
À l'aide de VBA ou autre...
Merci beaucoup,
Céline

.

Salut Isabelle,
Salut Modeste,
Merci pour vos réponses.
J'ai testé sans grand succès la solution proposée par Isabelle.
J'ai pas le temps aujourd'hui d'analyser le tout ou d'adapter la
solution de Modeste.
Je vous reviens plus tard.
Céline

"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message
de news:597101c491cd$a2de7e30$a601280a@phx.gbl...
Bonsour ® Céline,
un embryon de collectage à adapter....

(voir les propriètès de l'objet Formatcondition)
en testant le nombre de conditions
en testant chaque bordures
puis en mémorisant les résultats dans une nouvelle feuille

;-))
;-x

Sub celine()
For Each cell In Selection
If cell.FormatConditions.Count > 0 Then
'--ici mettre une boucle sur le nombre de conditions
With cell.FormatConditions(1)
MsgBox "Condition : " & .Formula1 _
& Chr(10) & "ligne style : " & .Borders.LineStyle _
& Chr(10) & "épaisseur : " & .Borders.Weight _
& Chr(10) & "couleur :" & .Borders.ColorIndex _
& Chr(10) & "police : " & .Font.Name _
& Chr(10) & "gras : " & .Font.Bold _
& Chr(10) & "couleur :" & .Font.ColorIndex _
, , "Format conditionnel " & cell.Address

End With
End If
Next

-----Message d'origine-----
Bonjour à tous,
Est-il possible d'imprimer les formats conditionnels
d'une feuille de

calcul ?
À l'aide de VBA ou autre...
Merci beaucoup,
Céline

.