Test de cellule en vba

[SylvainPG]

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

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

 

[wilfried_42]

Re : Test de cellule en vba

Bonjour

If (95 > (.cells(i, (X + 2)).Value) > 5) Then

met cela à la place

If (95 > .cells(i, (X + 2)).Value) and ((cells(i, (X + 2)).Value > 5) Then

si j'ai bien compris ton probleme

 

[SylvainPG]

Re : Test de cellule en vba

Merci de ta réponse, malheuresement ça à le même effet...

Je ne comprend pas pourtant je vérifie tout, je trouve pas..

Une autre solution peut être?

Sylvain

 

[wilfried_42]

Re : Test de cellule en vba

re:

je n'ai toujour pas compris

mais si tu cherches à sommer :

Else: c = 0
D = D + c
End If
Next i

devient :

Else
 c = 0
End If
D = D + c
Next i

 

[SylvainPG]

Re : Test de cellule en vba

YEES!

Merci wilfried, deuxième fois que tu me règle un problème. Congratulations!!

Merci encore!

Sylvain