Somme par variable

Bonjour Vegas, Lentzouille

as tu demandé à la personne si elle connaissait les Tableaux croisés Dynamiques car souvent, on ne connait pas cette b^te là pourtant très efficace et rapide à exécuter

on peut aussi le faire par formules sans grande difficulté et aussi par filtres ou bdsomme...

bref, "penser Excel avant de penser VBA" :o)

mais comme on veut du VBA, allons y avec la grosse artillerie (on considère qu'il y a des milliers de lignes, il n'est pas nécessaire que le noms sont groupés)!!!

Option Explicit
Sub Additionne_par_critere()
Dim Derlig As Integer, Dico As Object
Dim Lig As Integer, Nom As String, Points As Double

Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
Set Dico = CreateObject("scripting.dictionary")
For Lig = 2 To Derlig
     Nom = Cells(Lig, "A")
     If Not Dico.exists(Nom) Then
          Points = Cells(Lig, "B")
          Dico.Add Nom, Points
          Else
          Points = Points + Cells(Lig, "B")
          Dico.Item(Nom) = Points
     End If
Next
Range("E2").Resize(Dico.Count, 1) = Application.Transpose(Dico.Keys)
Range("F2").Resize(Dico.Count, 1) = Application.Transpose(Dico.items)
End Sub

la maquette:
https://www.cjoint.com/?3IApArBGXf4

Merci Lentzouille, mais on me demande faire une macro.

Bonjour,

Pas besoin de macro,

Un simple Tableau croisé dynamique répondra à votre demande,

Cordialement,