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
Partager