VBA - Repérer Couleurs de Surlignage d'une Cellule

Bonjour a tous,

J'ai un énorme fichier Excel a traiter et je cherche a repérer un type de cellule en particulier représentant un grand titre. Cette case est repérable car elle est surligner en RVB (207; 228; 231).

Je cherche a faire une macro me permettant de compter le nombre de cellule dans ce cas de figure et garder en mémoire la ligne (je n'ai pas besoin de la colonne).

Je ne peux pas utiliser les règles de surbrillance car une fois les lignes identifier ma macro effectuer une série d'action.

Pour l'instant j'ai fait le code suivant pour parcourir mon fichier.

Sub testtesttest()
Dim c As Workbook, f, e As Worksheet
Set c = Workbooks("Copie_test")
Set f = c.Worksheets("Part_1")

Dim boucle, a As Integer

boucle = 0
a = 3 'on commence a la ligne 3'

Do Until boucle = 1
    If 'surlignage de la cellule est de couleur RGB(207; 228;231) Then 

   ElseIf f.Cells(a, 2).Value = "" Then
       boucle = 1
       MsgBox "Quitte la boucle"
   a = a + 1
Loop

End Sub

Merci de votre temps !!

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Dim dico As Object, mess$, k
Dim cell As Range, i&, j&, nb&

Sub CellulesSurlignées()

    Set dico = CreateObject("Scripting.Dictionary")
    nb = 0
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
        For j = 1 To Range("A3").CurrentRegion.Columns.Count
            If Cells(i, j).Interior.Color = RGB(207, 228, 231) Then
                nb = nb + 1
                dico(i) = ""
            End If
        Next j
    Next i
    k = dico.keys
    mess = ""
    For i = 0 To dico.Count - 1
        mess = mess & k(i) & Chr(10)
    Next i
    MsgBox "Nombre de cellules surlignées : " & nb & Chr(10) _
            & "Ellss sont aux lignes : " & Chr(10) & mess
End Sub

Bye !

C'est parfait !!

Merci full !