URGENT: transposter matrice en 1 colonne Résolu/Fermé

Question

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.

frisoa · Answer

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

frisoa · Answer

up

michel_m · Answer

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"

frisoa · Answer

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

frisoa · Answer

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

michel_m · Answer

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

frisoa · Answer

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.

Raymond PENTIER · Answer

Nous aimerions savoir si ça a bien marché.

frisoa · Answer

ca marche nikel!