Copier valeurs tableau sur une seule colonne

[alpilon]

Bonjour,

Le fichier ci-joint me récupère le tableau sur une ligne mais je souhaiterais sur une seule colonne, en conservant un espace entre chaque ligne récupérer
ex: pour les deux premières lignes du tableau :
1,1
41
24
19
15
un espace
1,2
9,8
15
17
17
24
38
5
un espace etc...

Sub essai()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("AI2", Range("AI65536").End(xlUp))
c.Select: Range(ActiveCell(1, 1), ActiveCell(1, 20)).Cut
Range("A10").Select
ActiveSheet.Paste
Next c
End Sub

je ne vous mentirais pas en vous disant que ce code n'est pas de moi, donc crédit à Excalibur, mais je ne suis pas arrivé à l'adapter.

Merci à vous

Alpilon

 

[Modeste]

Re : Copier valeurs tableau sur une seule colonne

Bonsoir alpilon,

Le code semblant différer de ce que j'ai cru comprendre de ta demande ... un essai en pièce jointe ... qui vaudra ce qu'il vaudra. Mais bon, en l'absence d'autre réponse, voyons toujours si ça fait avancer le "schmilblick"

 

[alpilon]

Re : Copier valeurs tableau sur une seule colonne

Merci Modeste c'est parfait, cela vaut largement ce que tu crois que cela vaut...

Bonne soirée à toi

Alpilon