Test de cellule en vba

SylvainPG

XLDnaute Nouveau
Salut le forum,

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 :confused:

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


FSM_cuve_condition = D
End With
End Function

Merci de vos réponses :)
 

Discussions similaires

Réponses
17
Affichages
760
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll