recuperer les valeurs en fonction de la couleur

Bonsoir,
Cette fonction à deux paramêtres,
plage (celle à additionner),
num (permet de choisir une couleur entier positif <ou égal à56)
:)
LeSteph

Function Sommecolor(Plage As Range, num As Integer)
Dim vsom As Single
Dim c As Object

For Each c In Plage
If c.Interior.ColorIndex = num Then
vsom = vsom + c.Value
Next
Sommecolor = vsom
End Function
"Jush" <y.enap@s.besoin> a écrit dans le message de
news:casd45$ibi$1@reader1.imaginet.fr...

Bonjour,

J'ai un tableau de taille fixe dans lequel je cherche a additionner les
valeurs de toutes les cases remplies en vert.
J'ai vu que la fonction cell.Interior.ColorIndex existait mais je ne sais
pas comment m'en servir.
Pouvez vous m'aider ?
Merci d'avance,
--
Jush

bonjour Jush,

Sub Macro1()
For i = 1 To 10
If Range("A" & i).Interior.ColorIndex = 43 Then
x = x + Range("A" & i)
end if
Next
MsgBox x
End Sub

isabelle

Bonjour,

J'ai un tableau de taille fixe dans lequel je cherche a additionner les
valeurs de toutes les cases remplies en vert.
J'ai vu que la fonction cell.Interior.ColorIndex existait mais je ne sais
pas comment m'en servir.
Pouvez vous m'aider ?
Merci d'avance,
--
Jush