Empiler plein de lignes en une seule colonne

[Frontloop]

Bonjour,

Après avoir fait le tour sur le forum je n'ai pas trouvé de sujet très proche du mien.
Voilà mon problème :

J'ai un tableau de 365 lignes avec 24 colonnes que je voudrais réduire à une seule colonne de 365*24 lignes (8760 lignes) comme suit à l'aide d'une macro.
J'arrive à "transposer" chaque ligne en une colonne mais je ne me vois pas faire ça 365 fois.

Je voudrais passer de ça :

41 56 52 3 44 2 3 ....... 52 54 6 6
45 2 ..................................2 3
..........................................99

à ça :

41
56
52
...
...
...
99

Merci de votre précieuse aide.

Gilles

 

[tototiti2008]

Re : Empiler plein de lignes en une seule colonne

Bonjour Frontloop,
Bienvenue sur XLD,

par une formule par exemple.
Moi j'ai fait un tableau de 24 colonnes et 365 lignes en Feuil1
et en Feuil2, cellule A1, j'ai mis :

=INDEX(Feuil1!$A$1:$X$365;ENT((LIGNE()-1)/24)+1;MOD(LIGNE()-1;24)+1)

à recopier vers le bas jusqu'en ligne 8760

 

[JNP]

Re : Empiler plein de lignes en une seule colonne

Bonjour le forum 🙂,
Et par VBA

Application.ScreenUpdating = False
Range("A:A").Insert Shift:=xlToRight
Dim I As Integer, J As Integer, K As Long
For I = 2 To 25
    For J = 1 To 365
        K = K + 1
        Cells(K, 1) = Cells(J, I)
    Next J
Next I
Range("B1:Y365").Clear
Application.ScreenUpdating = True

Bonne soirée 😎

 

[jp14]

Re : Empiler plein de lignes en une seule colonne

Bonsoir

Une solution par macro
A modifier en fonction du nombre lignes et des colonnes.
Les données se trouvent dans la feuille 2

A tester

JP

 

[Frontloop]

Re : Empiler plein de lignes en une seule colonne

Merci beaucoup pour vos nombreuses et rapides réponses.

Votre aide m'a été très précieuse. J'ai enfin résolue mon problème.🙂

Bonne journée à tous.

Gilles