calcul sur couleur

[Bernard]

Bonjour
débutant sous eexcel 2000, je me heurte au fonctionnement de cette fonction en VBA
For Each c In Range("b12:e12")
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-11]C[0]:R[-2]C[0],R[+5]C[-1])"
Next c

Mon but est de pouvoir comptabilisé le nombre de cellules ayant la meme couleur dans une la zone b12:e12
la formule de calcul fonctionne pour une colonne, mais lorsuqe je la recopie
pour effectuer le calcul sur la colonne suivante la celluel de référence s'indexe également.
Une ame charitable peut-elle m'aider à résoudre mon problème.
Merci par avance..........

 

[Rai]

Bonjour,

Désolé, mais j'ai un peu de mal à faire le lien entre ta question et le code que tu proposes.
Dans ton code tu écris :
For Each c in Range("B12:E12") pour parcourir la plage : OK
ensuite :
ActiveCell.FormulaR1C1 ... : là tu insères la même et unique formule dans la cellule active, 4 fois la même formule dans la même cellule.
Tu devrais utiliser c. pour parcourir ta plage
c.FormulaR1C1 = ....


Pour comptabiliser toutes les cellules dont la couleur de fond est rouge :
x = 0
For Each c In Range("B12:F12")
If c.Interior.ColorIndex = 3 Then x = x + 1
Next c
MsgBox "Le nombre de cellules rouges est : " & x, vbOK, "Info"

à adapter ;o))

Bon Dimanche

Rai