Transformer des lignes en une colonne

[T@DDY]

Bonsoir,
Je souhaite transformer des lignes en une colonne,afin de l'enregistrer en txt pour importer ce fichier en format drapeau vers une base de gestion commerciale.
Merci [file name=Transf_lignes_colonnes.zip size=2728]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transf_lignes_colonnes.zip[/file]

 

[Charly2]

Bonsoir t@ddy, bonsoir à toutes et à tous 🙂

Une réponse possible dans le fichier joint :

Option Explicit

Option Base 1

Sub TransposeDonnees()
'
Dim TabInit As Variant
Dim TabResult() As Variant
Dim Indice&
Dim Ligne&, Colonne%
'
  TabInit = Sheets('articles').Range('A1:I' & Range('A65536').End(xlUp).Row)

  ReDim TabResult(1 To UBound(TabInit, 1) * UBound(TabInit, 2), 1 To 1)

  Indice = 1
  For Ligne = 1 To UBound(TabInit, 1)
    For Colonne = 1 To UBound(TabInit, 2)
      TabResult(Indice, 1) = TabInit(Ligne, Colonne)
      Indice = Indice + 1
    Next Colonne
  Next Ligne

  Sheets('format drapeau').Range('A1:A' & UBound(TabResult)) = TabResult

End Sub

Tiens nous au courant 😉
[file name=Transf_lignes_colonnes_20060120020517.zip size=8612]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transf_lignes_colonnes_20060120020517.zip[/file]

A+