Formule VBA pour remplacer fonction SI et SI(ET

[tamatave33]

Bonsoir le forum,
Dans une feuille Excel je suis limité à 7 fonctions SI, quelqu'un pourrai-il me transposer la formule ci-dessous en code VBA, car je dois rajouter d'autres fonctions SI et SI(ET(.

=SI($D$7="Chutunic";"94 x 100";SI(ET(J150>4;J150<=5.8;K150="> 45°");"118.6 x 125";SI(ET(J150>5.8;J150<=9.5;K150="> 45°");"153.6 x 160";SI(ET(J150>9.5;J150<=16;K150="> 45°");"192.2 x 200";SI(ET(J150>5.2;J150<=7.6;K150="≤ 45°");"118.6 x 125";SI(ET(J150>7.6;J150<=12.4;K150="≤ 45°");"153.6 x 160";SI(ET(J150>12.4;J150<=21;K150="≤ 45°");"192.2 x 200";"94 x 100")))))))

Ou peut-on faire la même chose avec les fonctions index et equiv, pour trouver le diamètre en fonction du débit, avec des valeurs qui peuvent être différentes de celles indiquées dans un tableau, car résultant d'un calcul.
Par exemple dans le tableau joint, si par le calcul je trouve un débit de 6 l/s, avec un embranchement > 45°, il faut pouvoir lire un diamètre de 153.6 x 160.

Merci d'avance pour votre aide.

 

[Dranreb]

Re : Formule VBA pour remplacer fonction SI et SI(ET

Bonsoir.

Une formule comme ça pourrait faire l'affaire :

=INDEX($C$9:$C$15;EQUIV($J150-0,0001;SI($K150=">  45°";D$9:D$15;$E$9:$E$15)))

Mais il faudrait prévoir une lignes supplémentaire devant avec les valeurs à 0.

 

[tamatave33]

Re : Formule VBA pour remplacer fonction SI et SI(ET

Merci beaucoup. En rajoutant une ligne supplémentaire avec les valeurs à 0 ça fonctionne.
Petite question : pourquoi vous retranchez 0.001 à la valeur de $J150 ?
Bonne journée.

 

[Dranreb]

Re : Formule VBA pour remplacer fonction SI et SI(ET

Parce que les bornes considérée par le EQUIV avec 3ième paramètre à 1 ou omis sont toujours "à partir de tant inclus", jamais "au delà de tant exclu". Or vous aviez des J150>4, pas J150>=4.

 

[tamatave33]

Re : Formule VBA pour remplacer fonction SI et SI(ET

Merci pour ces précisions et pour votre aide.
Bonne soirée.