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

  • Initiateur de la discussion Initiateur de la discussion XaOE33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

XaOE33

XLDnaute Nouveau
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
 

Pièces jointes

Bonjour XaOE,
Un essai en PJ avec une fonction :
VB:
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)
 

Pièces jointes

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é
 
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é
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour