Nombre de cellules ayant la même couleur de fond sur plusieurs feuilles

Primaudon, donc ?

C'est quoi Primaudon ?

Voici le fichier, ça devrait être bon maintenant.

C'était le .usedrange qui bloquait bizarrement et le vert correspondant à celui du code...

Bonne soirée,

Edit : Primaudon, c'est sur ton fichier. C'est une ville ou un lieu apparemment.

Salut Sirbaf,
Salut 3GB,

Sirbaf demandait bien un décompte des cellules en [A:A] à fond blanc... devenues bleues ?
M'étonnerait que ce soit aussi simple, finalement...

Private Sub Workbook_Open()
'
Dim sWk As Worksheet, iIdx%
'
Application.ScreenUpdating = False
Set sWk = Worksheets("Compilation")
sWk.Cells.Delete
'
For x = 1 To Sheets.Count
    If Sheets(x).Name <> "Compilation" Then
        iIdx = 0
        With Sheets(x)
            For y = 1 To .Range("A" & Rows.Count).End(xlUp).Row
                If .Range("A" & y).Interior.Color = RGB(0, 176, 240) Then iIdx = iIdx + 1
            Next
        End With
        If iIdx > 0 Then _
            iRow = sWk.Range("A" & Rows.Count).End(xlUp).Row + 1: _
            sWk.Range("A" & iRow).Resize(1, 2).Value = Array(Sheets(x).Name, CStr(iIdx))
    End If
Next
'
sWk.Activate
[A1].Resize(1, 2).Value = Array("Feuilles", "Nb")
[A1].Font.Bold = True
[A1].Interior.Color = RGB(215, 215, 215)
[B1].Interior.Color = RGB(0, 176, 240)
[A1].CurrentRegion.Borders.LineStyle = xlContinuous
Columns.AutoFit
'
Application.ScreenUpdating = True
'
End Sub

A+

Bonjour et merci,

Oui maintenant le code fonctionne.

Tous les noms des onglets correspondes à des lieux dits.

J'avais mis du bleu car 3RGB a écrit : Re, le problème, c'est le blanc. Avec une autre couleur, c'est plus simple car le blanc correspond à l'absence de couleur en RGB, mais pas en index de la table des couleurs...

Merci à tous pour votre collaboration