Copier coller avec transpose

Fermé
Brebel - 14 nov. 2019 à 15:09
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 14 nov. 2019 à 15:55
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
A voir également:

1 réponse

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
14 nov. 2019 à 15:55
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
0