Bonjour à tous,

Voila, je cherche à compter le nombre de ligne d'une couleur selon leur couleur dans un tableau en feuille 4.
Dans mon tableau, j'ai 5 possibilités de couleur:
rouge= Interior.ColorIndex = 45
orange=Interior.ColorIndex = 19
Blanc=Interior.ColorIndex = 2
Bleu=Interior.ColorIndex = 37
Vert=Interior.ColorIndex = 35

Je souhaite donc, qu'à l'ouverture d'une feuille (7), il me compte le nombre de ligne pour chacun des critères, et que les résultats soient affichés dans des cellules de cette feuille.

J'ai bien commencé à faire un test avec un seul critère, mais ca fonctionne pas, car il m'affiche 0... erreur de code très très probablement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim r As String
Dim d As Integer
Private Sub Worksheet_Activate()
 
r = 0
Feuil4.Unprotect (123)
For d = Feuil4.Cells.SpecialCells(Type:=xlCellTypeLastCell).Row To 1 Step -1
If Feuil4.Cells(d, 1) = Feuil4.Cells(d, 1).Interior.ColorIndex = 45 Then
r = r + 1
End If
Next
Feuil7.Range("G" & 13).Value = r
Feuil4.Protect (123)
 
 
' rafraichir
ThisWorkbook.RefreshAll
 
End Sub
Merci par avance de votre aide