Somme avec condition de couleurs et date

job75

XLDnaute Barbatruc

• 18 Mars 2014

• #2

Re : Somme avec condition de couleurs et date

Bonjour Scoty,

Fichier joint avec cette fonction VBA :

Code:

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+

 

Pièces jointes

• TOTAL(1).xls

  49.5 KB · Affichages: 36

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 18 Mars 2014

• #3

Re : Somme avec condition de couleurs et date

Job toujours o top !! 😉

Impecable merci encore.

@+
Scoty

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2014

• #4

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+

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 18 Mars 2014

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2014

• #6

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 :

Code:

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+

 

Pièces jointes

• TOTAL(2).xls

  53 KB · Affichages: 27

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 19 Mars 2014

• #7

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??

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2014

• #8

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+

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 19 Mars 2014

• #9

Re : Somme avec condition de couleurs et date

Ok merci de la précision Job !

@+

 

Vote positif 0 Vote négatif