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

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

Votre réponse

Discussions similaires

Newsletters