Discussion :

[arnold95]

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.

[wilfried_42]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arnold95]

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