Discussion :

[jbggg]

juste une petite précision, je voulais savoir si j'ai le droit d'écrire ceci

Code :

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

1
2
3
4
if Range("calcul1!I19").value<0 or ("calcul1!I20").value<0 then
Range("calcul1!I19")=Range("calcul1!I19").value*(-1) or Range("calcul1!I20")=Range("calcul1!I20").value*(-1) 
else
Range("calcul1!J19") = (Range("calcul1!I20").Value + Range("calcul1!I19").Value) / 2

[fred65200]

Bonjour

Si je comprends bien ce que tu veux:
Si I19 ou I20 est négatif, il faut passer en positif, sinon, I19 = I20 + I19 /2, dans ce cas, écris

Code :

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

1
2
3
4
5
6
If Range("calcul1!I19").value<0 or ("calcul1!I20").value<0 then
 Range("calcul1!I19")= Abs(Range("calcul1!I19"))
Range("calcul1!I20")=abs(Range("calcul1!I20")) 
 else
 Range("calcul1!J19") = (Range("calcul1!I20").Value + Range("calcul1!I19").Value) / 2
end if

Cordialement

[Godzestla]

Bonjour,

je ne comprends pas ce que tu essaies de faire de la sorte.

Code :

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

1
2
3
4
5
 
if Range("calcul1!I19").value<0 or ("calcul1!I20").value<0 then
Range("calcul1!I19")=Range("calcul1!I19").value*(-1) or Range("calcul1!I20")=Range("calcul1!I20").value*(-1) 
else
Range("calcul1!J19") = (Range("calcul1!I20").Value + Range("calcul1!I19").Value) / 2

Pourquoi "or"
Pourquoi "Range("calcul1!I19")=" et pas "Range("calcul1!I19").value="
...

[jbggg]

je m'explique c'est vrai que ce n'est pas clair:

alors J19 est la valeur moyenne(en valeur absolue) des cellules I19 et I20.

or dans tous les cas si I19<0 , I20>0 et si I19>0 , I20<0 (admis)

mais dans tous les cas, J19 doit être positif

[jbggg]

je crois avoir trouver:

Code :

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

1
2
3
if Range("calcul1!I19").value<0 then Range("calcul1!J19")=((Range("calcul1!I19")*(-1))+Range("calcul1!I20"))/2
else
Range("calcul1!J19")=((Range("calcul1!I20")*(-1))+Range("calcul1!I19"))/2