Somme doublon

[BRUNO62]

Bonjour,

J'ai besoin d'aide. Je souhaite un regroupement de doublon avec une somme automatique et le résultat ne s'applique pas sur la dernière colonne
Avez vous une idée ?
Merci, d'avance
A+

 

[Habitude]

Re : Somme doublon

Pourquoi ne pas juste extraire J
Et utiliser somme.si pour K et L ?

 

[homepyrof53]

Re : Somme doublon

Bonsoir
Voici la macro

Sub toto()
Dim tab1
l = 1
Set tab1 = CreateObject("scripting.dictionary")
'------------------------------------------------------
'  cumul des valeurs
'------------------------------------------------------
While Cells(l, 1) <> ""
    cle = Cells(l, 1)
    If tab1.exists(cle) Then
        tmp = tab1(cle)
        tmp(0) = tmp(0) + Cells(l, 5)
        tmp(1) = tmp(1) + Cells(l, 8)
        tab1(cle) = tmp
    Else
        tab1(cle) = Array(Cells(l, 5), Cells(l, 8))
    End If
    l = l + 1
Wend
'------------------------------------------------------
'  ecriture résultat
'------------------------------------------------------
l = 10
c = 10
For Each cle In tab1
    tmp = tab1(cle)
    Cells(l, c) = cle
    Cells(l, c + 1) = tmp(0)
    Cells(l, c + 2) = tmp(1)
    l = l + 1
Next
End Sub

 

[BRUNO62]

Re : Somme doublon

Bonsoir Habitude et homepyrof53,

J'avais adapté la solution somme si.
Je change d'avis, je préfère celle de homepyrof53.

Encore merci à vous !

Bonne soirée
A+