Application.transpose(Tbl1) en VBA

bonjour,

Bonne année à tt le monde

est ce que quelqu'un sait,s'il existe une autre méthode pour transférer les données sur une ligne et pas en colonne comme le fait la fonction dest.value= Application.transpose(Tbl1)

ou dest est la plage de destination

toutes propositions est la bienvenue.

merci d'avance

Bonjour

peut ^tre que que petite démo pourra t'aider

Dim tablo(9)

For i = 0 To 9
tablo(i) = Cells(i + 1, 1)
Next

'Range("A20:J20") = tablo
'ou
Range("A20").Resize(1, 10) = tablo

Bonjour,

Moins bien que Michel_M que je salue au passage mais avec ce code aussi :

Sub test()
With Sheets(1)
    .Range("C1:C5").Copy
    .Range("dest").Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With
End Sub

Avec

• C1:C5 : la plage à transposer
• dest : la page de destination et "dest" défini comme nom via "Insertion / Nom / définir"

amicalement

Dan