Bonsoir,

Alors je présente la situation :

Je voudrais en fait sommer les valeurs d'une colonne en fonction de la valeur d'une cellule sur une autre colonne puis afficher un résultat.
Je m'explique : Par exemple j'ai sur une colonne les valeurs respectivement sur chaque ligne en partant de la ligne 2 : 10, 20, 30, 10, 5, 5 et donc je voudrais sommer ces valeurs en fonction de la valeur d'une cellule on va prendre par exemple 40 dans notre cas donc la macro devrait sommer ces valeurs en partant vers le bas tel que leur somme soit inférieur ou égale à 40 donc ici la somme se fera sur les cellules contenant les valeurs : 5, 5, 10 = 20 < = 40.

J'ai essayé avec le code suivant mais en vain :

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
Sub Calcul()
 
Dim X, Somme As Integer
X = ActiveCell.Row
Somme = 0
J = 0
Do
   For i = 2 To X
   Somme = Somme + Cells(i + J, 5).Value
   Next
   J = J + 1
Loop While Somme >= Cells(X, 4).Value
 
 
Cells(X, 6).Value = Somme
 
End Sub
Merci de m'éclairer sur le sujet.

Cordialement.