VBA : if avec conditions complexes

[thomasmbai]

Bonjour,


Je sollicite votre aide, parce que j'ai un problème avec mes conditions; actuellement j'ai le code suivant :

ElseIf Cells(I, H) & Cells(I, K) & Cells(I, J) = Cells(I - 1, H) & Cells(I - 1, K) & Cells(I - 1, J) And WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M And Cells(I - 1, A3) <> 3 And Cells(I, E) + Cells(I - 1, D2) <= M Then

Ce code fonctionne très bien. Cependant j'aurais besoin de faire la modification suivante :

WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M

ou bien

Cells(I - 1, A2) = 2

Ce qui m'ennui c'est comment écrire que c'est l'une des deux conditions sus-mentionnées tout en gardant les autres conditions "and" obligatoires.

Merci d'avance de votre aide...

 

[tototiti2008]

Re : VBA : if avec conditions complexes

Bonjour thomas,

Peut-être

ElseIf Cells(I, H) & Cells(I, K) & Cells(I, J) = Cells(I -  1, H) & Cells(I - 1, K) & Cells(I - 1, J) And  (WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M Or Cells(I - 1, A2) = 2) And Cells(I - 1, A3)  <> 3 And Cells(I, E) + Cells(I - 1, D2) <= M Then

 

[thomasmbai]

Re : VBA : if avec conditions complexes

Merci pour cette réponse rapide.