Minumum avec condition

Rebonjour, j'ai une nouvelle question sous vba...en fait je souhaiterai obtenir le minimum entre 4 valeurs sur chaque ligne, sachant que ce minimum doit etre supérieur à > 0. Ces 4 valeurs sont stockés dans :
calcul_r1.
calcul_r2.
calcul_r3.
calcul_r4.
et le résultat obtenu doit etre stoké dans Minvaleurs afin de continuer les tests.
Merci beaucoup.

bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function mini(z1,z2,z3,z4) as double dim tablo(4) tablo(1)=z1:tablo(2)=z2:tablo(3)=z3:tablo(4)=z4 mini = 0 for i = 1 to 4 if tablo(i) >0 then if mini = 0 then mini = tablo(i) if tablo(i)<mini then mini = tablo(i) end if next i end fuction

---

utiliser la fonction comme cela

Code:

---

minvaleurs = mini(calcul_r1,calcul_r2,calcul_r2,calcul_r3) ' si les 4 valeurs sont à zero, minvaleurs sera egal à zero

---

Ca marche bien...Merci beaucoup.Bonne journée.