Je suis en train de péter un cable avec un test de cellule sous vba. C'est simple pourtant, mais il y toujours un truc qui échappe aux débutant
Je voudrais tester la cellule cells(i,(x+2)), x étant un argument. Si la valeur de cette cellule est compris entre 5 et 95 alors je prend la valeur de la cellule cells(i,2), sinon ba je prend 0.
Tout ça dans une boucle en sommant toutes les valeurs résultant de la condition.
Function FSM_cuve_condition(X As Double) As Double
Application.Volatile
Dim d as double
Dim c As Double
c = 0
D = 0
With worksheets("chargement")
For i = 3 To 100
If (95 > (.cells(i, (X + 2)).Value) > 5) Then
c = (.cells(i, 2))
Else: c = 0
D = D + c
End If
Next i