Discussion :

[jena18]

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 :

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

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

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

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 :

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

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

[jena18]

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

[Jean-Philippe André]

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

Code :

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

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