Somme des cellules en fonction des couleurs

[MURIELLE]

Bonjour à tous,

Je sais que le problème a été traité pas mal de fois mais je n'y connais rien en vba et je n'arrive pas à appliquer les solutions trouvées à mon cas.

Je vous explique : Dans le tableau joint, je souhaite faire une somme des valeurs dans mes cellules jaunes (heures) et ensuite faire un comptage de mes cellules jaunes (jours). J'ai essayé pleins de choses mais rien à faire je suis définitivement NUL pour ça.

Je vous remercie de l'aide que vous voudrez bien m'apporter et n'hésitez pas à me demander si je ne suis pas assez claire.

Dans l'attente,
Murielle

 

[JCGL]

Re : Somme des cellules en fonction des couleurs

Bonjour à tous,

Deux petites fonctions :

Option Explicit


Function SommeCouleur(r As Range, c As Integer)
Dim Cel As Range
   Application.Volatile
   For Each Cel In r.Cells
      SommeCouleur = SommeCouleur - (Cel.Interior.ColorIndex = c) * Cel.Value2
   Next Cel
End Function

Function NombreCouleur(r As Range, c As Integer)
Dim Cel As Range
   Application.Volatile
   For Each Cel In r.Cells
      NombreCouleur = NombreCouleur - (Cel.Interior.ColorIndex = c)
   Next Cel
End Function

A+ à tous

 

[Modeste]

Re : Somme des cellules en fonction des couleurs

Bonsoir Murielle,

Un essai en pièce jointe avec fonctions personnalisées.
Teste ... et dis-nous si ça convient.

edit: Oups! Salut JC

 

[MURIELLE]

Re : Somme des cellules en fonction des couleurs

Bonjour JCGL, Modeste et tous,

Tout d'abord merci pour vos réponses, j'ai testé les deux mais celle de JCGL correspond le plus à mes besoins. En effet, la formule de Modeste ne me permet pas de calculer automatiquement, je suis obligée de double-cliquer sur la formule et ensuite de faire "entrer" alors que la formule de JCGL se calcul dès que j'appuie sur F9.

Alors peut être est-ce un problème de mon pc ? Mais en tout cas merci beaucoup à vous deux.

Bon weekend à tous.
Murielle

 

[Modeste]

Re : Somme des cellules en fonction des couleurs

re-bonsoir,

Alors peut être est-ce un problème de mon pc ?

Hélas pour moi, ça n'a rien à voir avec ton pc ... c'est seulement l'expérience (JCGL a tout de même 10 fois mon âge (euh, je veux dire 10 fois plus de messages)

 

[JCGL]

Re : Somme des cellules en fonction des couleurs

Bonjour à tous,
Salut Modeste 🙂,

c'est seulement l'expérience (JCGL a tout de même 10 fois mon âge (euh, je veux dire 10 fois plus de messages)

Arf Arf Excellent

Tu es trop modeste, Modeste
Moi je préfère ton code qui va chercher la couleur tout seul

As-tu essayé de rajouter un Application.Volatile en début de code ?

A++ 🙂
A+ à tous

 

[Modeste]

Re : Somme des cellules en fonction des couleurs

re² bonsoir,

Moi je préfère ton code qui va chercher la couleur tout seul

Oh ben et moi j'aimais bien le petit arc-en-ciel des ColorIndex !

As-tu essayé de rajouter un Application.Volatile en début de code ?

Of course! Je me suis empressé de chercher à comprendre ce que tu pouvais bien avoir de plus que moi 😀😀, j'ai testé la différence ... et j'ai adopté ta volatilité😛

@+