Transposer via un bouton de commande

[Markal]

Bonjour à toutes et à tous,
J'ai un classeur "A" d'où j'envoie des données dans un autre classeur "B" via un bouton de commande.
Les données saisies en "A" sont saisies en colonne et je voudrais que les données se répartissent sur la même ligne dans le même ordre dans le classeur "B".
Ci-dessous ma commande sur le bouton :

Sub Envoi_engagement()
Dim wbs As Workbook, wbdest As Workbook

Set wbs = ActiveWorkbook
Set wbdest = Workbooks.Open(Filename:="classeur"B"")

wbs.Sheets("SAISIE").Range("C3:C37").Copy _
Destination:=wbdest.Sheets("bdd").Range("A65536").End(xlUp)(2)
Application.DisplayAlerts = False
wbdest.Save
wbs.Sheets("SAISIE").Range("C3:C37").ClearContents
wbdest.Close
End Sub

Merci par avance et bonne soirée

 

[Paf]

Re : Transposer via un bouton de commande

Bonjour,

a priori

wbs.Sheets("SAISIE").Range("C3:C37").Copy
wbdest.Sheets("bdd").Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Transpose:=True

sur deux lignes

A+

 

[Markal]

Re : Transposer via un bouton de commande

Merci Paf, ça marche super bien.
Désolé pour le retard et bonne journée !