Microsoft 365 Somme.SI. + critère couleur de Cellule

[XaOE33]

Re Bonjour,

Je vous sollicite de nouveau pour obtenir votre aide afin qu'Excel puisse calculer automatiquement les cellules en coloris vert dans mon tableau.
Il s'agit en effet des échéances payées.
J'ai essayé de créer une petite macro, mais je ne m'en sors vraiment pas.

Merci à toutes et tous une nouvelle fois de partager votre savoir,

Xavier

 

[sylvanu]

Bonjour XaOE,
Un essai en PJ avec une fonction :

Function TotalVersé(Plage As Range)
Dim Total As Long
On Error GoTo Fin
Total = 0
For Each Cell In Plage
    If Cell.Interior.Color = RGB(226, 239, 217) And Cell < 40000 Then   ' 40000= 06/07/2009 permet de discriminer les dates.
        Total = Total + Cell
    End If
Next
TotalVersé = Total
Fin:
End Function

A noter que si vous changez le Vert, il faut changer : RGB(226, 239, 217)
La syntaxe est : =TotalVersé(G5:AD6)

 

[D.D.]

Hello,

Une solution ici aussi.
La somme se fait selon la couleur de la cellule de la formule. Exemple en E15

 

[XaOE33]

Merci à toi pour cette réponse.
J'ai juste oublier de préciser que je n'y connais rien en macro.
Sauf erreur de ma part, le fichier ne semble pas fonctionner.
Ce sont les cellules en jaune que je cherche à ce qu'Excel remplissent automatiquement.
Merci encore pour le dérangement occasionné

 

[XaOE33]

Merci à toi pour cette réponse.
J'ai juste oublier de préciser que je n'y connais rien en macro.
Sauf erreur de ma part, le fichier ne semble pas fonctionner.
Ce sont les cellules en jaune que je cherche à ce qu'Excel remplissent automatiquement.
Merci encore pour le dérangement occasionné

 

[sylvanu]

Regardez le post 2.
Cependant comme il s' agit de fonction vous pouvez les mettre n'importe où.

 

[XaOE33]

Regardez le post 2.
Cependant comme il s' agit de fonction vous pouvez les mettre n'importe où.

Désolé, je dois être vraiment trop novice, et j'ai du faire une erreur, mais la/les formules ne fonctionnent pas ;-)

 

[sylvanu]

Le fichier du post 2 a déjà les formules dans les cellules jaunes.
Vous avez validé les macros ?