Bonjour,

je veux compter le nombre de cellule en fonction de leur couleur, j'ai réussi à le faire mais il y a un point que je n'arrive pas à expliquer dans ma macro :
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
21
22
23
24
 
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cpt, NbRouge As Integer
Dim coul As String
NbRouge = -1
    If Not Application.Intersect(Target, Range("C6:AF11")) Is Nothing Then
        coul = Target.Interior.Color
        Cancel = True
        Select Case coul
        Case RGB(255, 255, 255): Target.Interior.Color = RGB(255, 0, 0)       ' après blanc --> rouge
        Case RGB(255, 0, 0): Target.Interior.Color = RGB(51, 51, 255)         ' après rouge --> bleu
        Case RGB(51, 51, 255): Target.Interior.Color = RGB(51, 204, 51)       ' après bleu  -> vert
        Case RGB(51, 204, 51): Target.Interior.Color = RGB(255, 255, 255)     ' après vert boucle sur blanc
        End Select
    End If
 
    For Each Target In Range("C6:AF11")
     If Target.Interior.Color = RGB(255, 0, 0) Then
     NbRouge = NbRouge + 1
     Range("AH6").Value = NbRouge
     End If
    Next
End Sub
Ma question : pour que le résultat soit bon pourquoi ai-je été obligé de mettre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
NbRouge = -1