Format conditionnel en vba

[Tony]

Bonsoir,

J'ai un souci de détection de cellule sous format conditionnel, je m'explique :

Dans un plage de cellule avec mise en forme conditionnel, je peux visualiser les cellules remplissant la condition de la mise en forme.

Par contre en vba, je souhaite détecter les cellules remplissant la condition de la mise en forme conditionnel (je n'ai qu'une condition).

J'ai essayé la macro suivante , mais ca fonctionne pas !

Sheets(1).Range("r9:r31").Select
For Each c In Selection
If c = FormatConditions Then MsgBox ("ok")
Next

Auriez-vous une idée qui puisse me sortir de ce mauvais pas ?
Merci d'avance
Tony

 

[PhiBou]

Bonjour Tony, Le Forum

Regarde cette sub si elle te convient :

Sub Tony()
Dim c As Range
Dim Plage As String
Plage = ""
For Each c In Range("r9:r31")
If c.FormatConditions.Count > 0 Then
Plage = Plage & c.Address & ","
End If
Next c
If Len(Plage) > 0 Then
Plage = Left(Plage, Len(Plage) - 1)
MsgBox "Mise en forme dans les cellules :" & Chr(10) & Chr(10) & Plage
Range(Plage).Select
Else
MsgBox "Aucune mise en forme dans la plage"
End If
End Sub

 

[@+Thierry]

Salut Phibou, Tony, le Forum


Je vois d'avance la réponse de Tony : "Merci Phibou, Mais je souhaite lister par VBA les cellules remplissant la condition de la mise en forme conditionnel et pas lister toutes les cellules qui ont un format conditionnel..."

D'ailleurs pour faire ce que fait la macro que tu proposes, il suffit d'aller dans Menu => Edition => "Atteindre" puis bouton "Cellules"...

Je conseille à Tony de voir ce fil

Lien supprimé

Voir ces démos :

La mienne pour une alternative simple :
Lien supprimé

... et celle de Laurent Excellente !!!
Lien supprimé

Bon Travail
@+Thierry