transformer un tableau en liste

[Marypen]

Bonsoir,
je cherche mais je fatigue....
je voudrais copier les données d'un tableau avec des cellules vides dans une liste sur une autre feuille.
J'ai joint un exemple pour voir plus clair les couleur ne sont pas nécessaire

Merci pour le coup de main

 

[BOISGONTIER]

Re : transformer un tableau en liste

Bonjour,

Sub TransformeLigneColonne()
  Set f1 = Sheets("Liste")
  a = Sheets("Tableau").[B1].CurrentRegion
  ligBD = 2
  For ligne = 3 To UBound(a, 1)
    For col = 2 To UBound(a, 2)
      If a(ligne, col) > 0 Then
        f1.Cells(ligBD, 1) = a(ligne, 1)
        f1.Cells(ligBD, 2) = a(1, col)
        f1.Cells(ligBD, 3) = a(ligne, col)
        ligBD = ligBD + 1
      End If
    Next col
  Next ligne
End Sub

JB