Synthèse d'un tableau

Bonjour à tous,
Mon précédent post à était résolue à une vitesse tellement rapide que je vous lance une autre énigme ! Vus les passionnées d'excel et de VBA,je ne pense pas que cela vous résiste longtemps !

J'ai un fichier avec dans une feuille :

Mon nombre de colonne "Types" peux être variable ..

Certaines lignes (comme pour CCC en exemple) ne comporte aucune données, la macro doit pouvoir les passer..

Je cherche un moyen d'automatiser ma synthèse sur une 2eme feuille, avec :
Colonne A : Désignation
Colonne B : Types

Colonne C : le nombre inscrit dans la cellule correspondante à A et B

Je cherche à avoir un résultat qui ressemble à ceci :

je vous met un fichier test en pièce jointe, avec la même base

Merci pour votre aide !

Bonjour,

Par le biais de Power Query, en 1 clic, c'est fait..

Regarde le fichier joint

Bonjour

Salut CousinHub

Moi je suis de la vieille école ma solution en VBA

A+ François

Bonjour à tous,

Moi je suis de la vieille école ma solution en VBA

Une variante,

Sub test()
 Dim tb, ntb(), i%, k%, j%
  tb = Sheets("Feuil1").ListObjects(1).Range
  Sheets("Feuil2").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
   If Not Sheets("Feuil1").ListObjects(1).DataBodyRange Is Nothing Then
    k = 0
    ReDim ntb(1 To UBound(tb, 1) * UBound(tb, 2), 1 To 3)
     For i = 2 To UBound(tb, 1)
      For j = 2 To UBound(tb, 2)
       If tb(i, j) <> "" Then
        ntb(k + 1, 1) = tb(i, 1)
        ntb(k + 1, 2) = tb(1, j)
        ntb(k + 1, 3) = tb(i, j)
        k = k + 1
       End If
      Next j
     Next i
   End If
  If k > 0 Then Sheets("Feuil2").Range("A2").Resize(k, 3) = ntb
   Sheets("Feuil2").Activate
   Erase tb: Erase ntb
End Sub

Cordialement,

Bonsoir Xorsankukai, fanfan38 et cousinhub !!

Merci pour votre aide, ca fonctionne dans tous les cas que vous m'avais proposé !

Ca m'aide énormément pour mon travail !!

Merci a vous !!