Est-ce possible de d'additionner des celulles (chaque celulle contient un nombre) SI et seulement SI elles sont colorées ?
D'avance Merci pour vos conseils
Bencort
Essaye de rentrer une fonction du genre :
Function SommeRouge(Plage As Range) Dim vCellule As object Dim vSomme As Single For Each vCellule In Plage If vCellule.Interior.ColorIndex = 3 Then vSomme = vSomme + vCellule.Value Next SommeRouge = vSomme End Function
L'exemple fonctionne si la couleur intérieur est rouge (=3) mais tu peux adapter.
On 17 sep, 13:28, bencort <benc...@discussions.microsoft.com> wrote:
Bonjour à tous et toutes,
Est-ce possible de d'additionner des celulles (chaque celulle contient un
nombre)
SI et seulement SI elles sont colorées ?
D'avance Merci pour vos conseils
Bencort
Essaye de rentrer une fonction du genre :
Function SommeRouge(Plage As Range)
Dim vCellule As object
Dim vSomme As Single
For Each vCellule In Plage
If vCellule.Interior.ColorIndex = 3 Then vSomme = vSomme + vCellule.Value
Next
SommeRouge = vSomme
End Function
L'exemple fonctionne si la couleur intérieur est rouge (=3) mais tu peux
adapter.
Est-ce possible de d'additionner des celulles (chaque celulle contient un nombre) SI et seulement SI elles sont colorées ?
D'avance Merci pour vos conseils
Bencort
Essaye de rentrer une fonction du genre :
Function SommeRouge(Plage As Range) Dim vCellule As object Dim vSomme As Single For Each vCellule In Plage If vCellule.Interior.ColorIndex = 3 Then vSomme = vSomme + vCellule.Value Next SommeRouge = vSomme End Function
L'exemple fonctionne si la couleur intérieur est rouge (=3) mais tu peux adapter.