URGENT: transposter matrice en 1 colonne

Résolu/Fermé

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013 - 9 mars 2009 à 10:19
frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013 - 9 mars 2009 à 15:37

Bonjour,

j ai un petit problème sous excel qui paraît simple à première vue mais qui m'accapare depuis quelques jours.
je voudrais simplement transposer une matrice en une seule colonne sans avoir a faire un copier coller transposer à chaque ligne (j ai 3900 lignes). Avez vous un solution?

exemple:

j ai :

123
456

je voudrais avoir:

1
2
3
4
5
6

merci pour vos réponses.

9 réponses

Réponse 1 / 9

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 mars 2009 à 12:13

Bonjour,

Difficile de te proposer quoi que ce soit: ta demande est floue...

par exemple: toujours 3 chiffres en ligne ?
sinon, youjours le m^me nombre de choffres ?

la Transposition se place à quel endroit ? en supprimant la disposition horizontale ?

version Excel= le nombre de lignes est différent suivant les versions...

au besoin, mets un extrait de ton fichier sur
https://www.cjoint.com/
et colles le lien proposé dans ton message de retour

A méditer ce proverbe chinois: "Si tu es pressé, commences par t'asseoir"

Réponse 2 / 9

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 mars 2009 à 15:03

Pour l'autre feuille, c'est trop tard et de plus tu ne précises pas le nom de la feuille...alors la transposition se fait en colonne J comme tu me l'as indiqué sur ta pièce jointe

Sub transposer()
Dim derlig As Long, cptr As Long

Application.ScreenUpdating = False
derlig = Range("a65536").End(xlUp).Row
lig = 2

For cptr = 2 To derlig
    Cells(lig, 10) = Cells(cptr, 1)
    Cells(lig + 1, 10) = Cells(cptr, 2)
    Cells(lig + 2, 10) = Cells(cptr, 3)
    Cells(lig + 3, 10) = Cells(cptr, 4)
    Cells(lig + 4, 10) = Cells(cptr, 5)
   lig = lig + 5
Next

End Sub

Réponse 3 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 11:11

une macro serait elle la bonne solution? Ahhhhhhhh au secours, s il vous plait aidez moi

Réponse 4 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 12:00

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 14:30

bonjour michel_m, voici un extrait de mon fichier et du résultat que je souhaites. https://www.cjoint.com/?dloD1JxcDN
penses tu que cela est réalisable sans avoir a faire 36000 copier coller.
merci de ton aide

Réponse 6 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 14:40

ha oui juste une précision la transposition se fait sur une autre feuille

Réponse 7 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 15:24

Un grand merci pour ton aide michel_m!
tu peux pas savoir l'epine que tu me tire du pied!
désolé de n'avoir pas été assez précis sur mon post mais je savais pas trop ce dont tu avais besoin.
bonne journée, encore merci et à beintot sur le site.

Réponse 8 / 9

Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
9 mars 2009 à 15:34

Nous aimerions savoir si ça a bien marché.

Réponse 9 / 9

frisoa Messages postés 40 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 31 janvier 2013
9 mars 2009 à 15:37

ca marche nikel!

Newsletters