Bonjour le Forum,
Bonjour passyves,
voila un code qui crée une fonction pour compter les cellules en couleur (il n'est pas de moi).
Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range
Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell
NbColor = Compteur
End Function
pour l'installer fait alt+F11 dans la fenetre fait menu insertion => module et tu le colle dans le module.
ensuite dans ton classeur si tu veux compter les cellule en rouge de la plage A1 a A20 en B1 par exemple tu tape =NbColor(A1:A20;C1) la cellule C1 et colorisée suivant la couleur que tu veux compter
Jocelyn
oup's bonjour Lio, Pascal76, Jacques87 je suis désolé je n'avais pas raffraichi
Message édité par: Jocelyn, à: 10/02/2006 16:11