Assembler des lignes sur Excel

Bonjour à tous,

J'aimerai mettre à la suite plusieurs lignes. J'illustre mon propos, imaginons deux lignes avec une valeur par case:

1ère ligne contient : 58796321 (le 5 est en A1, le 8 en B1 etc...)

2ème ligne contient: 39687147963

Le but est qu'en 1ère ligne j'ai : 5879632139687147963. Toutes les lignes en dessous de la 1ère viennent se "coller" au contenu de la 1ère ligne.

Ceci pour plus de 160 lignes.

Merci de votre aide !

Cordialement,

Quik

Bonjour,

Ton fichier contient de très nombreuses cellules qui contiennent une chaine nulle (i.e. "") !

Je suppose qu'il ne faut pas en tenir compte !

Essaies ce code dans un module standard :

Option Explicit
Sub xxx()
Dim nC&, nL&, dC&, dL&, xC&
  Feuil2.Cells.ClearContents
  dL = Feuil1.Cells(Rows.Count, "A").End(xlUp).Row
  For nL = 1 To dL
    dC = Feuil1.Cells(nL, Columns.Count).End(xlToLeft).Column
    For nC = IIf(nL = 1, 1, 3) To dC
      If Feuil1.Cells(nL, nC).Formula <> "" Then
        xC = xC + 1
        Feuil2.Cells(1, xC).Value = Feuil1.Cells(nL, nC).Value
      End If
    Next nC
  Next nL
  Feuil2.Columns.AutoFit
End Sub

Bonjour,

Plus de 160 lignes à mettre bout à bout ? Attention au fait qu'une feuille n'a que 16384 colonnes !

Cordialement.

MFerrand a écrit :

Plus de 160 lignes à mettre bout à bout ? Attention au fait qu'une feuille n'a que 16384 colonnes !

Merci Patrice33740 !!

ça fonctionne parfaitement.

Merci beaucoup !

P.s je vais transformer la ligne en une colonne j'aurai plus de place !

Bonne journée

Quik