aide pour une formule

Bonjour,

J'aimerais savoir comment faire cette formule en visual basic 2008:

Code:

---

=IF(AND(E2=1;F2>=0;F2<=12);(9+E2)*F2*45;IF(AND(E2=2;F2>=0;F2<=10);(9+E2)*F2*45;IF(AND(E2=2;F2=11);120*45;IF(AND(E2=2;F2=12);131*45;IF(AND(E2=3;F2>=0;F2<=12);(9+E2)*F2*45;IF(AND(E2=4;F2>=0;F2<=3);(9+E2)*F2*45))))))))))

---

Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If Cells(2,5).Value = 1 And Cells(2,6).Value <= 12 then result = (9*10^2)*Cells(2,6).Value *45 Elseif Cells(2,5).Value = 2 And Cells(2,6).Value <= 10 then result = (9*10^2)*Cells(2,6).Value *45 Elseif Cells(2,5).Value = 2 And Cells(2,6).Value = 11 then result = 120*45 Elseif Cells(2,5).Value = 2 And Cells(2,6).Value = 12 then result = 131*45 Elseif Cells(2,5).Value = 3 And Cells(2,6).Value >= 0 and Cells(2,6).Value <= 12 then result = (9*10^2)*Cells(2,6).Value *45 Elseif Cells(2,5).Value = 4 And Cells(2,6).Value >= 0 and Cells(2,6).Value <= 3 then result = (9*10^2)*Cells(2,6).Value *45 endif

---

C'est assez lourd et très répétitif, essaye de filtre pour utiliser un Select sur F2.

Souvent ta valeur est la même. N'est pas plus simple de réduire les expression ? Quelles sont les valeurs que peuvent prendre E2 et F2 ?

Essaye voir ca

Code:

---

1 2 3 4 5 6 7

If Cells(2,5).Value = 2 And Cells(2,6).Value = 11 then result = 120*45 Elseif Cells(2,5).Value = 2 And Cells(2,6).Value = 12 then result = 131*45 Else result = (9*10^2)*Cells(2,6).Value *45 End If

---