Macro pour reporter des données

Bonjour,

J'ai créer une macro pour reporter des données issue de deux colonnes en une seul colonne. Cette macro permet aussi de compter la fréquence d'apparition des éléments des cellules ( voir cas numéro 1 et tester la maccro). J'aimerais adapter cette macro au cas numéro 2, c'est a dire quand les deux colonnes sont séparés par deux autres colonnes. Je vous joins le fichier test pour que ce soit plus claire !

Merci à vous,

Cdlt

Bonjour,

première simplification, tu n'as pas besoin de tester l'existence

        For i = 2 To UBound(tablo, 1)
            dico(tablo(i, 3) & " " & tablo(i, 4)) = dico(tablo(i, 3) & " " & tablo(i, 4)) + 1
        Next i

Pour le second tableau :

ListObjects(2)

code

Option Explicit

Dim dico As Object
Dim i&

Sub Report()

        Set dico = CreateObject("Scripting.Dictionary")
        With Sheets("Donnees").ListObjects(2)
            For i = 1 To .ListRows.Count
                dico(.ListColumns("type").DataBodyRange.Rows(i).Value & " " & .ListColumns("Puissance").DataBodyRange.Rows(i).Value) = _
                dico(.ListColumns("type").DataBodyRange.Rows(i).Value & " " & .ListColumns("Puissance").DataBodyRange.Rows(i).Value) + 1
            Next i
        End With
        Range("B6").CurrentRegion.Offset(1, 0).ClearContents
        Range("B7").Resize(dico.Count, 1) = Application.Transpose(dico.keys)
        Range("C7").Resize(dico.Count, 1) = Application.Transpose(dico.items)

End Sub

Bonsoir,

C'est parfait merci à vous,

Cdlt