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.
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
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

Discussions similaires

liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses
Formule magique excel??????
sexy_miss -
Raymond PENTIER -

13 réponses
colonne A disparue tableur excel
reno78840 -
Anst20 -

4 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses