Somme avec condition de couleurs et date

[Scoty]

Bonjour à tous,

Petit défi excel: je souhaite calculer des cellules avec plusieurs conditions:
- En fonction de la couleur (ceci est ok avec une petite macro "sommesicouleur" et "code couleur")
- En fonction d'une date donnée (ici ou ça bloque)

J'ai tenté le sommesi, sommeprod, formule matricielle rien à faire....

Ci joint un petit fichier explicatif.

Merci d'avance pour vos réponses. Dans l'attente de vous lire.

@+
Scoty

 

[job75]

Re : Somme avec condition de couleurs et date

Bonjour Scoty,

Fichier joint avec cette fonction VBA :

Function TOTAL#(Pdat, Pval, celcoul, Optional dat#)
'Pdat et Pval vecteurs horizontaux de même dimension
Dim i&
If dat = 0 Then dat = 9 ^ 9
For i = 1 To Pdat.Count
  If Pdat(1, i) <= dat And _
    Pval(1, i).Interior.Color = celcoul.Interior.Color _
      Then TOTAL = TOTAL + Pval(1, i)
Next
End Function

A+

 

[Scoty]

Re : Somme avec condition de couleurs et date

Job toujours o top !! 😉

Impecable merci encore.

@+
Scoty

 

[job75]

Re : Somme avec condition de couleurs et date

Re,

On le sait, la modification des couleurs en D1 ou D2 n'entraîne pas automatiquement le recalcul des formules.

Le plus simple est alors de faire un double-clic sur D1 ou D2 et de valider par <Entrée>.

On peut aussi rendre la fonction volatile, mais il faudra quand même appuyer sur F9.

A+

 

[Scoty]

Re : Somme avec condition de couleurs et date

Ok je m'en suis rendu compte, je pensais à un bug au départ. je connais pas les fonctions volatiles je vais faire quelques recherches.

Bonne soirée

@+
Scoty

 

[job75]

Re : Somme avec condition de couleurs et date

Bonjour Scoty, le forum,

Si la fonction est calculée dans beaucoup de cellules, la variable coul réduit la durée des calculs :

Function TOTAL#(Pdat, Pval, celcoul, Optional dat#)
'Pdat et Pval vecteurs horizontaux de même dimension
Dim coul&, i&
If dat = 0 Then dat = 9 ^ 9
coul = celcoul.Interior.Color
For i = 1 To Pdat.Count
  If Pdat(1, i) <= dat And Pval(1, i).Interior.Color = coul _
    Then TOTAL = TOTAL + Pval(1, i)
Next
End Function

Fichier (2).

A+

 

[Scoty]

Re : Somme avec condition de couleurs et date

Job,

Merci pour l'astuce du coup je vais tester ça pour voir si je peux etre plus "coul" ( ca m'a faire rire lol 😀) car je m'arrache un peu les cheuveux avec ce "calcul processus" ds le ruban inférieure.

Cependant j'ai une petite question: si cette fonction réduit le temps de calculs, réduit-elle le nombre de cellules calculées et donc de fausser le résultat??

@+

 

[job75]

Re : Somme avec condition de couleurs et date

Re,

Voyons, la macro du post #6 ne fait que mémoriser le code couleur de la cellule de référence.

Alors que la macro du post #2 le recalcule à chaque fois que la boucle est incrémentée...

A+

 

[Scoty]

Re : Somme avec condition de couleurs et date

Ok merci de la précision Job !

@+