Macro somme plusieurs colonnes

Bonjour le Forum,

Mon soucis est de calculer des résultats sur 2 colonnes avec des lettres et les résultats en chiffres, j'ai fait un exemple.

pourriez-vous m'aider à faire une macro car j'ai une tonne de calcul à faire sur ce principe et ce serai plus simple pour moi de faire un copier/coller de mes fichiers.

Par avance, merci.

Cordialement.

ericp

Bonjour,

Ceci

Cdlt

Bonjour

Bonjour à tous

Une variante

Option Explicit

Dim tabloA, tabloB, TabloR(), dico As Object
Dim i&

Sub Sommes()

    tabloA = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    tabloB = Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row)
    Set dico = CreateObject("Scripting.Dictionary")

    For i = 1 To UBound(tabloA, 1)
        If dico.exists("Somme " & tabloA(i, 1)) Then
            dico("Somme " & tabloA(i, 1)) = dico("Somme " & tabloA(i, 1)) + tabloB(i, 1)
        Else
            dico("Somme " & tabloA(i, 1)) = tabloB(i, 1)
        End If
    Next i

    Range("J1").CurrentRegion.Clear
    Range("J1").Resize(1, dico.Count) = dico.KEYS
    Range("J2").Resize(1, dico.Count) = dico.items
    Range("J2").Resize(2, dico.Count).HorizontalAlignment = xlCenter
    Range("J1").Resize(2, dico.Count).Borders.LineStyle = xlContinuous
End Sub

Bye !

Bonjour,

Vous êtes géniaux, un grand merci à ce super forum et à vous Messieurs.

Bien cordialement.

ericp