Transformer des cellules en colonne en ligne toutes les 200 Résolu/Fermé

Question

Bonjour mes amis,
j'ai des données sur un colonne A, et je veux les ordonner en lignes de chaque 200, ex:
Colonne:A
9
10
15
2
30
40
.
.
.
.
A200:900
ils doivent être:
ligne A1: 9.10.15.2.30.40 jusqu’à ligne A 200.
lorsqu’au 200 lignes se terminent elle commence à nouveau.

Nb: voila mon base de donnée il contient 3000 email sur colonnes A, soient 15 lignes de A1 jusq'au A15.

http://www.cjoint.com/c/FBppgr01VcQ

Merci infiniment.
Configuration: Windows XP / Chrome 40.0.2214.115

gbinforme · Answer

Bonjour,
 
Avec cette petite macro tu les as en feuille 2
Sub Transposer()
Dim lg1 As Long, lg2 As Long
    lg2 = 1
    For lg1 = 1 To Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row Step 100
        Sheets("Feuil1").Cells(lg1, 1).Resize(100, 1).Copy
        Sheets("Feuil2").Cells(lg2, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        lg2 = lg2 + 1
    Next lg1
End Sub

Vaucluse · Answer

Bonsoir nonossov

à défaut de faire le tri entre les colonnes et les lignes dans ton message, je te retournes le fichier avec deux options, voir sur les deux feuilles:
200 en ligne sur 15 ligne feuille "horizontal"
200 en colonne sur 15 colonne  "feuille vertical"

 https://www.cjoint.com/c/FBpsyAT14Xo

crdlmnt
 
La qualité de la réponse dépend surtout de la clarté de la question, merci!

Transformer des cellules en colonne en ligne toutes les 200

2 réponses

Discussions similaires