XL 2019 transposer de vertical en horizontal

clausen

XLDnaute Nouveau
Bonjour

J'aimerai pouvoir par un copier coller transposer cette colonne de data en une ligne horizontale .

Merci d'avance pour vos conseils
 

Pièces jointes

  • test.xlsx
    11.7 KB · Affichages: 6

R@chid

XLDnaute Barbatruc
Bonjour,
tu as tout dit, reste qu'à pratiquer.
Capture d'écran 2021-04-07 17.25.11.png


Cordialement
 

Roblochon

XLDnaute Barbatruc
Bonjour,

Vous copier vos cellules (A1:A31), choisissez une cellule de destination puis click-droit sur celle-ci et "Collage-spécial".

dans la fenêtre qui s'ouvre, cochez la case 'Transposé' en bas à droite
Valider.

1617812995194.png



cordialement
 

Phil69970

XLDnaute Accro
Bonjour @clausen, le forum

Je te propose :

VB:
Sub Transpose()
Dim NbLig&
NbLig = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

Range("A2:A" & NbLig).Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False

End Sub


Merci de ton retour
@Phil69970
 

Pièces jointes

  • Transpose V1.xlsm
    18 KB · Affichages: 1

mapomme

XLDnaute Barbatruc
Supporter XLD
ça me change la hauteur des cellules
Ça c'est sûr! Quand on colle des cellules à police 14 dans des cellules, les cellules de destination s'adaptent aux polices copiées.

On pourrait ne copier que les valeurs mais dans ce cas ni les formats des nombres ni les couleur des cellules ne seront copiés (à moins que cela ne vous convienne).

il suffit une fois la copie faite, de redonner à la police de la ligne la taille qu'on désire.
 
Haut Bas