Somme et doublons... Encore et tjs

[Dgidgi]

Bonjour à tous,

Je sais bien que cela a été à de nombreuses reprises abordés mais je n'ai rien trouvé d'approchant
je cherche donc à sommer les valeurs des doublons avec une macro
exemple pour que ca parle:
2 colonnes:
x | 1
x | 2
y | 3
y | 4
y | 5
z | 6
z | 7

et je cherche a obtenir:
x | 3
y | 12
z | 13

Je vous joins en exemple de fichier.
Merci encore de votre aide

 

[phlaurent55]

Re : Somme et doublons... Encore et tjs

Bonjour Dgidgi, et bienvenue sur le forum

voici ton fichier en retour

à+
Philippe

 

[Dgidgi]

Re : Somme et doublons... Encore et tjs

Super merci bcp !
j'ai aussi réussi à dénicher une macro en fouillant
Bonne continuation

 

[JCGL]

Re : Somme et doublons... Encore et tjs

Bonjour à tous,
Salut Philippe,

Les articles sont triés sans doublon et un SOMMEPROD() pour sommer.
Un TCD pour tenter (vainement, je crois) de vous les faire apprécier.

A+ à tous

 

[Dgidgi]

Re : Somme et doublons... Encore et tjs

Merci encore de votre aide !
J'ai réussi à trouver ca et je cherche à décliner la macro pour prendre également en compte la colonne C.
Si qqun connait la modif, je suis preneur
Merci

 

[JCGL]

Re : Somme et doublons... Encore et tjs

Bonjour à tous,

Peux-tu essayer avec :

Private Sub CommandButton1_Click()
Dim i&, j&
Application.ScreenUpdating = False
[A:C].Copy [E:G]
For i = Range("E65536").End(xlUp).Row To 3 Step -1
  For j = i - 1 To 2 Step -1
    If Cells(i, "E") = Cells(j, "E") Then
      Cells(j, "F") = Cells(j, "F") + Cells(i, "F")
            Cells(j, "G") = Cells(j, "G") + Cells(i, "G")
      Cells(i, "E").Resize(, 3).Delete xlUp
      Exit For
    End If
  Next
Next
End Sub

A+ à tous

 

[Dgidgi]

Re : Somme et doublons... Encore et tjs

Nikel !
Un grand merci