XL 2019 transposer de vertical en horizontal

R@chid

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2021

• #2

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


Cordialement

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 7 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Avril 2021

• #4

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: 6

Vote positif 0 Vote négatif

C

clausen

XLDnaute Occasionnel

• 7 Avril 2021

• #5

Merci mille fois.

ça me change la hauteur des cellules

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 7 Avril 2021

• #6

clausen à dit:

ça me change la hauteur des cellules

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif