(Re)Bonjour,
Quelqu'un pourrait-il me dire pourquoi mon code ci-joint affiche 0, alors que j'ai plusieurs cellule en rouge (Je veux compter le nombre de cellules de couleur rouge sur la colonne J de la ligne 8 à la ligne 128), en vous remerciant d'avance.
Cordialement
Quelqu'un pourrait-il me dire pourquoi mon code ci-joint affiche 0, alors que j'ai plusieurs cellule en rouge (Je veux compter le nombre de cellules de couleur rouge sur la colonne J de la ligne 8 à la ligne 128), en vous remerciant d'avance.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
Dim Nb As Integer
Nb = 0
For Each cellule In Range("J8:J128")
If cellule.Interior.ColorIndex = 10 Then
Nb = Nb + 1
End If
Next cellule
Range("J133").Value = Nb
End SubCordialement