fonction Max et conditions IF

Bonjour,

Je suis débutante en vba et je souhaiterais écrire cette formule
MAX(SI(ET(ESTNUM(H36);ESTNUM(36));H36-I36;0)-SI(ET(ESTNUM(K36);ESTNUM(L36));K36-L36;0);0)-Feuil2!C18
et mettre la valeur dans la cellule D36.

Ps: je veux juste la valeur dans la cellule et pas la formule Excel.

Avec l'enregistreur de Macro j'ai le résultat suivant:

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = _ "=MAX(IF(AND(ISNUMBER(RC8),ISNUMBER(RC[5])),RC8-RC[5],0)-IF(AND(ISNUMBER(RC11),ISNUMBER(RC[8])),RC11-RC[8],0),0)-Feuil2!R[-18]C[-1]" Range("d36").Select

---

Mais dans la cellule j'ai également la formule quand je clique sur la valeur.
Que faire?
Merci

Bonjour,

bienvenue sur DVP :salut:

lorsque tu as obtenu le resultat que tu veux en bout de formule, pour acceder a la valeur, tu peux passer par la propriete Value du Range.
comme par exemple

Code:

---

Range("d36").Value = ActiveCell.Value

---

Merci Jean Philippe André
je voudrai savoir comment l'écrire avec if-then-else et comment appliquer la fonction max par la suite.

Dans l'idee, une syntaxe serait de ce style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'MAX(SI(ET(ESTNUM(H36);ESTNUM(36));H36-I36;0)-SI(ET(ESTNUM(K36);ESTNUM(L36));K36-L36;0);0)-Feuil2!C18 'on decompose 'SI(ET(ESTNUM(H36);ESTNUM(36)) Dim A As Double If Isnumeric(Range("H36").Value) And IsNumeric(Range("I36").Value Then A = Range("H36").Value-Range("I36").Value Else A= 0 End If 'SI(ET(ESTNUM(K36);ESTNUM(L36));K36-L36;0) If Isnumeric(Range("K36").Value) And IsNumeric(Range("L36").Value Then A = A-Range("K36").Value-Range("L36").Value Else A= A- 0 'pas necessaire End If 'MAX(...;0) A = Application.WorksheetFunction.Max(A,0) '-Feuil2!C18 A = A - Range("Feuil2!C18").Value Range("D36").value = A

---