somme des valeurs d'une même référence.

[christophe d]

Bonjour tous le monde.

je voudrais dans le fichier ci-joint pouvoir faire la somme des valeurs d'une même référence.
Soit dans le même onglet ou dans un autre.
merci d'avance et reste à votre disposition si besoin de renseignement complémentaire.

 

[Annette]

Re : somme des valeurs d'une même référence.

christophe d,

Ctrl+Maj temp+Entrée 🙂.

Cordialement

 

[klin89]

Re : somme des valeurs d'une même référence.

Bonsoir à tous,
Bonsoir Christophe,

Ma version, résultat en Feuil3
Je n'ai pas soigné la mise en forme

Option Explicit
Sub Cumul()
Dim dic As Object, i As Long, e, n As Long
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1
    With Feuil2
        With .Range("a1", .Range("a" & Rows.Count).End(xlUp)).Resize(, 15)
            For i = 2 To .Rows.Count
                If Not dic.exists(.Cells(i, 6).Value) Then
                    Set dic(.Cells(i, 6).Value) = .Rows(1)
                End If
                Set dic(.Cells(i, 6).Value) = _
                Union(dic(.Cells(i, 6).Value), .Rows(i))
            Next
        End With
    End With
    With Feuil3
        .Cells.Clear
        For Each e In dic
            n = n + 1
            dic(e).Copy .Cells(n, 1)
            With .Cells(n, 1).CurrentRegion
                With .Offset(.Rows.Count).Resize(1)
                    dic(e).Rows(1).Copy .Cells(1)
                    .Columns("a:o").ClearContents
                    .Columns("a:o").Interior.ColorIndex = 19
                    .Columns("a:o").Value = _
                    Array("TOTAL", "-", "-", "=counta(r" & n + 1 & "c:r[-1]c)", "-", e, "=sum(r" & n + 1 & "c:r[-1]c)", "-", "-", "-", "-", "-", "-", "-", "-")
                End With
                n = n + .Rows.Count + 1
            End With
        Next
        '.Cells.EntireColumn.AutoFit
        .Activate
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

Christophe, cliques sur le bouton en Feuil2 pour exécuter la macro

 

[christophe d]

Re : somme des valeurs d'une même référence.

je voulais vous remettre le fichier pour vous montrez ou ça bloque mais je ne voit pas comment faire

 

[christophe d]

Re : somme des valeurs d'une même référence.

pour klin89 il n'y a rien dans la feuille 3

A+

 

[Annette]

Re : somme des valeurs d'une même référence.

Christophe d,

Voyez si cela vous convient 🙂.

Cordialement

 

[christophe d]

Re : somme des valeurs d'une même référence.

SUPER merci c'est exactement ce que je voulais.

merci a vous tous, pour votre aide et tous vos conseils.

bon weekend