rudy dehaudt
XLDnaute Occasionnel
bonjour à tous,
je n arrive pas à adapter le code suivant ?
qui compte le nombre de case de couleur rouge à partir de a3:a et donne le resultat en a1.
pourriez vous jeter un coup d'oeil ?
part avance merci
A+
sub comptercouleurs ()
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rouge
Sheets("feuil1").Select
Range("A:A").select
For Each Cellules In Selection
If Cellules.Interior.ColorIndex = 38 Then 'n°3 = rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("feuil2").Activate
[c2] = CompterCellules
End sub
je n arrive pas à adapter le code suivant ?
qui compte le nombre de case de couleur rouge à partir de a3:a et donne le resultat en a1.
pourriez vous jeter un coup d'oeil ?
part avance merci
A+
sub comptercouleurs ()
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rouge
Sheets("feuil1").Select
Range("A:A").select
For Each Cellules In Selection
If Cellules.Interior.ColorIndex = 38 Then 'n°3 = rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("feuil2").Activate
[c2] = CompterCellules
End sub