transformer un tableau en liste

Marypen · 11 Avril 2013

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 · 11 Avril 2013

Re : transformer un tableau en liste

Bonjour,

Code:

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

transformer un tableau en liste

Marypen

Guest

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

transformer un tableau en liste

Marypen

Guest

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency