bonjour

j'ai un programme qui me permet de compter des cellules dans une colonne en fonction de la couleur j'aimerai pouvoir copier le résultat dans une cellule, mais je ne sais pas comment prendre le résultat final du processus itératif
comment devrai-je procéder ?

d'avance merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
sub compter_cellules ()
 
Dim cptcellules  As Long
Dim cellule As Range
 
For Each cellule In Range("A2:A34383")   'determine la zone d'application de l'itération
If cellule.Interior.ColorIndex = 5 Then    '  si la cellule est bleu compter 
cptcellules = cptcellules + 1                 ' itération
End If
Next cellule
cptcellules.Value.Copy
Range("C4").Paste