Sujet Précédent Sujet Suivant

Transposer une colonne en plusieurs colonnes

Résolu/Fermé
Lourdoueix2 Messages postés 2 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 5 juin 2015 - 5 juin 2015 à 00:21
Lourdoueix2 Messages postés 2 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 5 juin 2015 - 5 juin 2015 à 01:12
Bonjour,

j'ai une seule colonne A avec 8500 lignes que j'aimerais transposer en 50 colonnes de 170 lignes chacune. Je pourrais couper et coller les 50 colonnes manuellement, mais j'ai plusieurs feuilles comme celle-ci et je souhaiterais automatiser la manip. Une macro pourrait sûrement être utile.
Merci d'avance de votre aide.

2 réponses

Réponse 1 / 2
via55 Messages postés 14107 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 23 mars 2023 2 576
5 juin 2015 à 00:56
Bonsoir

Si les valeurs en colonne A commencent bien en ligne 1 (sinon adapter la boucle de la macro) 
Sub miseencolonnes()
Application.ScreenUpdating = False
For lg = 1 To 8331 Step 170
Sheets(1).Select
Sheets(1).Range("A" & lg & ":A" & lg + 169).Select
Selection.Copy
col = col + 1
Sheets(2).Select
Sheets(2).Cells(1, col).Select
ActiveSheet.Paste
Next
Application.ScreenUpdating = True
End Sub


Cdlmnt
Via
0
Réponse 2 / 2
Lourdoueix2 Messages postés 2 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 5 juin 2015
5 juin 2015 à 01:12
Parfait c'est exactement ça que je voulais et que je ne trouvais pas.
Un grand merci !
0