Somme VBA

Bonjour,

Je suis embêté avec un petit problème ..

J'ai un tableau avec les codes (colA) et les montants(colB).

J'aimerais avoir un code VBA qui calcule la somme des montants pour chaque code et l'affiche dans la colonne D.

Ci-joint mon fichier.

Je vous remercie d'avance

Bonjour,

pas de VBA, juste un TCD

Steelson a écrit :

Bonjour,

pas de VBA, juste un TCD

Salut Steelson,

Je l'ai déjà en TCD, il me faut du vba pour que je termine un code qui fait autre choses aussi..

sinon merci pour la proposition

Salut,

Cela te va ?

Sub faireLesSommes()

    Columns("A:A").Copy
    Range("E1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

    Columns("E:E").RemoveDuplicates Columns:=1, Header:=xlNo
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    Range("F1").FormulaR1C1 = "=SUMIF(C[-5],RC[-1],C[-4])"
    Range("F1").AutoFill Destination:=Range("F1:F" & Range("E1048576").End(xlUp).Row)

End Sub

@+

pas mal !!

un presque TCD avec

• l'avantage de recalculer en auto les sommes
• l'inconvénient de ne pas intégrer de nouveaux codes

Steelson a écrit :

- l'inconvénient de ne pas intégrer de nouveaux codes

Comment ça ? Si tu as un nouveau code dans ta liste, il va l'ajouter à la suite

Oui tu as raison, il faut relancer la macro.

Idem côté TCD, il faut l'actualiser.

Bonjour Alex,

Merci ça me convient

J'ai pas pensé à faire ça car j'avais en tête de le faire avec une boucle (je voyais pas trop comment mais bon)

Steelson a écrit :

Oui tu as raison, il faut relancer la macro.

Idem côté TCD, il faut l'actualiser.

Ah oui exact, à relancer après chaque ajout

Mus54 a écrit :

Bonjour Alex,

Merci ça me convient

J'ai pas pensé à faire ça car j'avais en tête de le faire avec une boucle (je voyais pas trop comment mais bon)

Super, content de t'avoir aidé