[XL-2007] Recherche de cellule par couleur de police [Résolu]

[Romanuche]

Bonjour à tous,

Je cherche à sélectionner une (pour commencer) ou des cellules dans une colonne déterminée (Exemple: colonne A) qui ont une couleur de police verte (par exemple)
Connaissez-vous une manière simple et rapide sous VBA pour trouver la cellule par ce critère ?

Exemple de la police :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Police Couleur verte
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = 5287936
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With

D'avance merci.

[Daniel.C]

Bonjour,

L’enregistreur de macros donne :

Code :

1
2
3
4
5
6
7
8
    With Application.FindFormat.Font
        .Subscript = False
        .Color = 255
        .TintAndShade = 0
    End With
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate

Il faut mettre le bon numéro de couleur.

[mercatog]

Bonjour
En complément de la proposition de Daniel C, il faudrait tester l'existence d'une cellule répondant aux critères et n'oublier pas d'effacer le format de recherche à la fin

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
Dim c As Range
 
With Application.FindFormat.Font
    .Color = 255
'autres critères
End With
Set c = Worksheets("Feuil1").Range("A:A").Find("", SearchFormat:=True)
If Not c Is Nothing Then
    MsgBox c.Address
'c désigne la première cellule trouvée
    Set c = Nothing
End If
Application.FindFormat.Clear
End Sub

[Romanuche]

Merci à tous les deux, cela fonctionne et m'a bien dépanné