XL 2019 transposer de vertical en horizontal

[clausen]

Bonjour

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

Merci d'avance pour vos conseils

 

[R@chid]

Bonjour,
tu as tout dit, reste qu'à pratiquer.

Cordialement

 

[Hasco]

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.

cordialement

 

[Phil69970]

Bonjour @clausen, le forum

Je te propose :

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

 

[clausen]

Merci mille fois.

ça me change la hauteur des cellules

 

[mapomme]

ç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.