Transformer des colonnes en lignes

[MAT06700]

Bonjour,

J’ai besoin de transformer un tableau avec des données en colonnes et transformer ces colonnes en lignes des données horizontales

Ci-après l’exemple

4	4117706
4	4117706
4	4274286
4	4274286
11	3442582
11	4015763
16	4036756
16	4036756
16	4036756
16	4036756
16	4459244
16	4459244
16	4459244
16	4459244
16	7900224
16	7900224
16	7900224
16	7900224
16	7931331
16	7931331
16	7931331
16	7931331

[Zebulon]

Bonjour,

Utiliser Copier, Collage spécial, Transposé.
Cordialement.

[MAT06700]

Bonjour Zébulon,

Merci pour la réponse, pouvez vous me dire si cette manipulation peut être attribuée à un listing global ou si il faut faire la manip à chaque fois ?

D’avance merci

[Zebulon]

Bonsoir MAT06700,

Il est possible d’automatiser cette manipulation.

Sub CopierTranspose()
    Range("Tableau1").Copy
    Range("E3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("E3").Select
End Sub

Cordialement