Boucle à 2 conditions

tototiti2008

XLDnaute Barbatruc

• 20 Octobre 2008

• #2

Re : Boucle à 2 conditions

Bonjour jeanphi,

si j'ai bien compris, en formule ça donnerait quelque chose comme

=SOMMEPROD((O10:O1000>0)*(AC10:AC1000>0)*P10😛1000)

en VBA, tu peux essayer avec un :

Evaluate("=SUMPRODUCT((O10:O1000>0)*(AC10:AC1000>0)*P10😛1000)")

Edit : une remarque : par défaut, il fait le calcul dans la feuille active...

 

Dernière édition: 20 Octobre 2008

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 20 Octobre 2008

• #3

Re : Boucle à 2 conditions

bonjour tototiti

super, je n'avais pas pensé à cette fonction cà marche très bien!!!
par contre, j amerais aussi le faire avec une boucle VB
quelqu'un peut t il m éclaircir???
😉
Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2008

• #4

Re : Boucle à 2 conditions

bnojour jeanphi
Salut Tototiti

A tester:

Code:

Sub test()
Dim tot As Double
Dim n As Integer
For n = 10 To 1000
  If Range("AC" & n) <> 0 And Range("O" & n) <> 0 Then
    tot = tot + Range("P" & n)
  End If
Next n
MsgBox (tot)
End Sub

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 20 Octobre 2008

• #5

Re : Boucle à 2 conditions

Bonjour PJ


Super, c'est ce que je voulais
Merci bcp! 🙂

 

Vote positif 0 Vote négatif