Boucle à 2 conditions

[jeanphi]

Bonjour


Dans une zone O10:O1000 et une zone AC10:AC1000, certaines cellules ont une valeur en euro
Dans une troisième zone qui est P10😛10, j'ai une formule qui fait la différence entre AC10 et O10 (P10= AC10-O10)
Je souhaite grâce à une macro obtenir le total de la colonne P10😛1000 si AC10 et O10 contiennent une valeur supérieure à 0
Comment puis je faire cela??
Merci 🙂

 

[tototiti2008]

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

 

[jeanphi]

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

 

[pierrejean]

Re : Boucle à 2 conditions

bnojour jeanphi
Salut Tototiti

A tester:

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

 

[jeanphi]

Re : Boucle à 2 conditions

Bonjour PJ


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