changement d'orientation

[alexenglebert]

Bonjour,
j'ai un petit souci concernant un de mes tableaux excel:

j'ai une liste de nombre en A1 B1 C1 D1 E1.... je voudrais reprendre ces mêmes chiffres mais plus de droite à gauche mais du haut vers le bas à savoir les mettre en A1 A2 A3 A4 A5...

Comment puis je faire???

Merci pour votre aide

 

[Jiheme]

Re : changement d'orientation

Bonjour Alexenglebert, re à tous

Tu sélectionne ton horizontale tu fais copier, tu sélectionne la verticale et colage spécial, tu coches "transposé" et tu valides.

A+

 

[alexenglebert]

Re : changement d'orientation

parfait merci

 

[ROGER2327]

Re : changement d'orientation

Bonjour à tous

Une petite procédure pour faire la chose :

[COLOR="DarkSlateGray"]Sub Macro01()
Dim oDat, dDat, tDat
   Set oDat = Range("A1:E1") [COLOR="SeaGreen"]'à adapter aux besoins[/COLOR]
   tDat = oDat: oDat.Clear
   Set dDat = oDat.Cells(1, 1).Resize(oDat.Columns.Count, oDat.Rows.Count)
   dDat.Value = Application.Transpose(tDat)
   dDat.Select
End Sub[/COLOR]

Bonne journée.
ROGER2327

 

[hoerwind]

Re : changement d'orientation

Bonjour,

Pour être complet, la même chose par formule :

A2 : =INDIRECT(CAR(64+LIGNE())&1)
formule à copier vers le bas.

 

[ROGER2327]

Re : changement d'orientation

Re...

Bonjour Alexenglebert, re à tous

Tu sélectionne ton horizontale tu fais copier, tu sélectionne la verticale et colage spécial, tu coches "transposé" et tu valides.

A+

Bonjour Jiheme
En faisant ça avec les plages A1:E1 et A1:A5, j'obtiens un message d'erreur dû au recouvrement partiel des deux plages.​

ROGER2327

 

[Jiheme]

Re : changement d'orientation

Bonjour à tous

Exact Roger, moi aussi, j'ai ommis de préciser dans ma réponse de le faire en A2 et de supprimer la ligne 1 ou encore d'effacer A1 et de remonter le tout, cette solution n'a d'intérêt que si cette manip est ponctuelle, la tienne et celle d'Hoerwind sont beaucoup plus pratiques en cas de manoeuvres répétitives.

Bon WE à tous

A+