négatif
-- Sam Sep 25, 2010 3:24 pm --
ça y est j'ai trouvé sur un autre forum (nom de l'autre forum supprimé par Nad) Merci Nad
Function nbcoul(plage As Range, couleur As Variant) As Double
Application.Volatile True
Dim cellule As Range, nb As Long
Application.Volatile True
nb = 0
For Each cellule In plage
If couleur = "rouge" Then couleur = 3
If couleur = "vert" Then couleur = 4
If cellule.Interior.ColorIndex = couleur Then
nb = nb + 1
End If
Next cellule
nbcoul = nb
End Function
Ensuite, pour utiliser la fonction :
=nbcoul(A1:A10;"rouge")
te donnera par exemple le nombre de cellules rouges de la plage A1:A10
Pour compter le vert, tu mettras vert à la place de rouge.
Voici par ailleurs une fonction qui permet de connaître le code de la couleur :
Function couleurcell(c As Range)
couleurcell = c.Interior.ColorIndex
End Function
Pour l'utiliser :
=couleurcell(A1)