Code NB SI couleur rouge

[argaz01]

(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.

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 Sub

Cordialement

 

[Modeste]

Re : Code NB SI couleur rouge

Bonjour argaz01,

Ne serait-ce pas le 3, pour le rouge ?

 

[13GIBE59]

Re : Code NB SI couleur rouge

Salut Modeste : tu as gagné !

Voir pièce jointe.

 

[argaz01]

Re : Code NB SI couleur rouge

J'ai bien mis 3, mais rien ne change,se peut-il que mon code contient une erreur?

Merci de jeter un coup d'oeil.

 

[jeanpierre]

Re : Code NB SI couleur rouge

Bonjour argaz01, Jean-Bernard, Modeste,

Ta couleur ne serait-elle pas issue d'une Mise en forme conditionnelle ?

Si c'est le cas il faut tester sur la condition elle-même.

Bon après-midi.

Jean-Pierre

 

[13GIBE59]

Re : Code NB SI couleur rouge

Bonjour Argaz.

Chez moi, ça marche.
Voir pièce jointe.

Edit : salut jeanpierre.