Somme de valeurs dès que qu'une autre valeur change
Bonjour,
Tout d'abord désolé de ce titre peu explicite. Pratiquant peu excel, la terminologie m'échappe.
Voici la forme de mes données :
001 2822.33
001 17.23
001 457.25
001 12457.23
002 17.24
002 785.12
002 986.25
003 45.21
003 4512.21
003 5.75
001 2541
001 54.45
001 475.25
007 45.21
007 12.25
002 45.56
002 14.25
008 65.23
etc etc
Ma requête :
Je souhaiterais additionner l'ensemble de mes 001, puis l'ensemble de mes 002, etc etc. et que la somme apparaisse sur la première ligne du 001, la première ligne du 002, etc etc...
Ca, je ne sais pas faire.
L'autre difficulté comme vous pouvez le voir, c'est que parfois les 001, 002 réapparaissent ailleurs.
Mon idée (mais je ne sais pas la traduire en langage excel) :
Additionne les valeurs B tant que valeur A est la même (sous entendu, dès que la valeur A change, alors crée une nouvelle addition)
Si quelqu'un a la solution....merci beaucoup.
Bigdaddy 154, c'est exactement ça !
Je te remercie pour ton aide et ton temps.
Maintenant que je sais qu'il y a une solution, me reste plus qu'à savoir la réappliquer dans mon fichier (qui est beaucoup plus complexe que 2 colonnes, comme tu dois t'en douter !
Je suppose que c'est du VBA, je n'y connais rien mais je vais fouiner.
Encore un grand merci !
Hello Dollismine,
je viens de te renvoyer la modification que tu m'as demandé en MP.
Un grand grand merci, c'est ro-yal !
De rien au plaisir
Bonsoir à tous,
Une autre façon de procéder
Option Explicit
Sub test()
Dim r As Range, i As Long, j As Long
Application.ScreenUpdating = False
With Sheets("feuil1")
Set r = .Range("a1", .Cells(.Rows.Count, "a").End(xlUp))
For i = 1 To r.Count
j = 1
Do Until r(i) <> r(i).Cells(j)
j = j + 1
Loop
r(i).Offset(, 2).Value = Application.Sum(.Range(r(i), r(i).Cells(j - 1)).Offset(, 1))
i = i + j - 2
Next i
End With
Application.ScreenUpdating = True
End Subklin89