Discussion :

[argaz01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Ces cellules sont coloriés en dur ou issu d'une mise en forme conditionnelle?

[argaz01]

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

Cordialement

[mercatog]

Ton code ne fonctionnera pas
les couleurs de la MFC ne sont pas détectées

[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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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