Transformer des cellules en colonne en ligne toutes les 200
Résolu
nonossov
Messages postés
610
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Transformer des cellules en colonne en ligne toutes les 200
- Partager photos en ligne - Guide
- Déplacer colonne excel - Guide
- Mètre en ligne - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
2 réponses
Bonjour,
Avec cette petite macro tu les as en feuille 2
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
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!
à 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!