Code NB si couleur rouge

Version imprimable

Bonjour tout le monde,

Quelqu'un pourrait-il m'indiquer pourquoi le code suivant ne fonctionne pas: Je veux compter le nombre de cellules de couleur rouge dans la colonne J (de J8 à J128), mais ça m'affiche 0 alors que j'ai plein de cellule en rouge, est-ce une erreur de couleur dans le code? et merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 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

10/06/2010, 12h49
mercatog

Ces cellules sont coloriés en dur ou issu d'une mise en forme conditionnelle?
10/06/2010, 12h55
argaz01

La couleur des cellules est issue d'une mise en forme conditionnelle.

Cordialement
10/06/2010, 13h36
mercatog

Ton code ne fonctionnera pas
les couleurs de la MFC ne sont pas détectées
10/06/2010, 15h06
argaz01

Merci mercatog, sinon comment faire pour changer mon code et remplacer la condition couleur par le mot "non": en effet, ma colonne affiche "non" selon certaines conditions et après les cellules affichant "non" se mettent en rouge, puis-je compter le nombre de cellules contenant le mot "non"? Si oui merci de m'indiquer la modification à faire sur mon code!

Cordialement
10/06/2010, 15h21
mercatog

Code:

MsgBox Application.CountIf(Columns("J:J"), "non")