re probleme de somme

[jmp]

re bonjour,

Dans un tableau excel, je voudrais effectuer une somme de la gauche vers la droite de nombres, mais que cette somme soit calculée tant que les cellules rencontrées soit positives.

Exemple : A1 cacul de la somme
A2=3, A4=5, A5=7,A6=-2, A7=8 la somme que je voudrais en resultat A=15

le calcul de la somme s'arrete donc dès qu'une cellule rencontrèe n'est pas du meme signe. Est il possible de faire ca? Si vous avez la solution merci d'avance

 

[lea]

Voici unbout de code qui répondra à ta question
S = 0
For I = 1 To 10
N = Range("A" & I).Value
MsgBox (N)
If N < 0 Then
MsgBox (S)
Exit Sub
End If
S = S + N

MsgBox (S)
Next I

Les nombres sont dans mon exemple situés dans les cellules A1 à A10
Les MsgBox te permettent de voir ce qui se passe
Bon courage