Copier coller avec transpose

Question

Bonjour, 

J'ai une feuille de "saisie de données" cellules C6 à C14.
Je souhaite que la macro trouve la dernière ligne vide sur une autre feuille "données"et y copie les cellules en les transposant sur une ligne.

Configuration: Windows / Edge 16.16299

f894009 · Answer

Bonjour,

A adapter fonction nom feuilles

Sub Copie_Transpose()
    With Worksheets("feuil2")
        PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1        'premiere cellule vide
        .Range("A" & PCV).Resize(, 9) = Application.Transpose(Worksheets("feuil1").Range("C6:C14"))
    End With
End Sub

Copier coller avec transpose

1 réponse

Discussions similaires

Newsletters