Bonjour,

Je recherche une solution pour pallier a un problème de fonction

la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(ET(E8="<15PO";B14=1);INDEX(aplante15;ALEA.ENTRE.BORNES(1;LIGNES(aplante15)));SI(ET(F8="<30PO";B14=1);INDEX(aplante30;ALEA.ENTRE.BORNES(1;LIGNES(aplante30)));SI(ET(G8="<50PO";B14=1);INDEX(aplante50;ALEA.ENTRE.BORNES(1;LIGNES(aplante50)));SI(ET(H8="<75PO";B14=1);INDEX(aplante75;ALEA.ENTRE.BORNES(1;LIGNES(aplante75)));SI(ET(E8="<15PO";B14=2);INDEX(dplante15;ALEA.ENTRE.BORNES(1;LIGNES(dplante15)));SI(ET(F8="<30PO";B14=2);INDEX(dplante30;ALEA.ENTRE.BORNES(1;LIGNES(dplante30)));SI(ET(G8="<50PO";B14=2);INDEX(dplante50;ALEA.ENTRE.BORNES(1;LIGNES(dplante50)));SI(ET(H8="<75PO";B14=2);INDEX(dplante75;ALEA.ENTRE.BORNES(1;LIGNES(dplante75)));SI(ET(E8="<15PO";B14=3);INDEX(fplante15;ALEA.ENTRE.BORNES(1;LIGNES(fplante15)));SI(ET(F8="<30PO";B14=3);INDEX(fplante30;ALEA.ENTRE.BORNES(1;LIGNES(fplante30)));SI(ET(G8="<50PO";B14=3);INDEX(fplante50;ALEA.ENTRE.BORNES(1;LIGNES(fplante50)));SI(ET(H8="<75PO";B14=3);INDEX(fplante75;ALEA.ENTRE.BORNES(1;LIGNES(fplante75)));SI(ET(E8="<15PO";B14=4);INDEX(lplante15;ALEA.ENTRE.BORNES(1;LIGNES(lplante15)));SI(ET(F8="<30PO";B14=4);INDEX(lplante30;ALEA.ENTRE.BORNES(1;LIGNES(lplante30)));SI(ET(G8="<50PO";B14=4);INDEX(lplante50;ALEA.ENTRE.BORNES(1;LIGNES(lplante50)));SI(ET(H8="<75PO";B14=4);INDEX(lplante75;ALEA.ENTRE.BORNES(1;LIGNES(lplante75)));SI(ET(E8="<15PO";B14=5);INDEX(maplante15;ALEA.ENTRE.BORNES(1;LIGNES(maplante15)));SI(ET(F8="<30PO";B14=5);INDEX(maplante30;ALEA.ENTRE.BORNES(1;LIGNES(maplante30)));SI(ET(G8="<50PO";B14=5);INDEX(maplante50;ALEA.ENTRE.BORNES(1;LIGNES(maplante50)));SI(ET(H8="<75PO";B14=5);INDEX(maplante75;ALEA.ENTRE.BORNES(1;LIGNES(maplante75)));SI(ET(E8="<15PO";B14=6);INDEX(moplante15;ALEA.ENTRE.BORNES(1;LIGNES(moplante15)));SI(ET(F8="<30PO";B14=6);INDEX(moplante30;ALEA.ENTRE.BORNES(1;LIGNES(moplante30)));SI(ET(G8="<50PO";B14=6);INDEX(moplante50;ALEA.ENTRE.BORNES(1;LIGNES(moplante50)));SI(ET(H8="<75PO";B14=6);INDEX(moplante75;ALEA.ENTRE.BORNES(1;LIGNES(moplante75)));SI(ET(E8="<15PO";B14=7);INDEX(pplante15;ALEA.ENTRE.BORNES(1;LIGNES(pplante15)));SI(ET(F8="<30PO";B14=7);INDEX(pplante30;ALEA.ENTRE.BORNES(1;LIGNES(pplante30)));SI(ET(G8="<50PO";B14=7);INDEX(pplante50;ALEA.ENTRE.BORNES(1;LIGNES(pplante50)));SI(ET(H8="<75PO";B14=7);INDEX(pplante75;ALEA.ENTRE.BORNES(1;LIGNES(pplante75)));SI(ET(E8="<15PO";B14=8);INDEX(oplante15;ALEA.ENTRE.BORNES(1;LIGNES(oplante15)));SI(ET(F8="<30PO";B14=8);INDEX(oplante30;ALEA.ENTRE.BORNES(1;LIGNES(oplante30)));SI(ET(G8="<50PO";B14=8);INDEX(oplante50;ALEA.ENTRE.BORNES(1;LIGNES(oplante50)));SI(ET(H8="<75PO";B14=8);INDEX(oplante75;ALEA.ENTRE.BORNES(1;LIGNES(oplante75)));""))))))))))))))))))))))))))))))))
Le problème c'est qu'a chaque actualisation du tableau la valeur change.

Je pensais à un macro avec -> If Range("E8").Value = "<15PO" And Range("B14").Value = 1 Then
Sauf je ne sais pas comment faire pour implanter le fonction INDEX(pplante50;ALEA.ENTRE.BORNES(1;LIGNES(pplante50))) par exemple dans la macro.


Merci d'avance pour votre aide.