Copier coller avec transpose

Brebel -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Copier coller avec transpose
Historique copier coller - Guide
Copier coller pdf - Guide
Copier-coller - Accueil - Informatique
Style d'écriture a copier coller - Guide
Arobase copier coller - Forum Windows 10

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Discussions similaires

dessin avec symbole clavier

Arobase (@)

comment faire une arobase

Arobase

dessin au clavier cannabis

Votre réponse

Discussions similaires