XL 2019 copier/coller colonne vers ligne

[YohanSC]

Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller.
Pourquoi?
Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A".

Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers ""lignes"".

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lDestLastRow As Long

Set wsCopy = Sheets("Feuil1")
Set wsDest = Sheets("Données")

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("B2:B7").Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats


Merci encore ...

 

[sylvanu]

Bonjour,
Est ce un doublon avec : https://excel-downloads.com/threads/recherchev-avec-4-criteres-vba.20079416/ ?

Sub CopieColle()
With Sheets("Données")
    DL = 1 + .Cells(Cells.Rows.Count, "A").End(xlUp).Row
    .Range("A" & DL & ":F" & DL) = Application.Transpose([B2:B7])
End With
End Sub

 

[YohanSC]

oui , il s'agit d'un doublon.
J'ai fait une erreur car ce n'est pas le même sujet de post.

Merci

 

[fanfan38]

Bonjour
J'ai pas compris à quoi sert ta fonction recherche4
Recherche.click ça m'étonnerai que ça marche
la macro Private Sub CommandButton1_Click() dans this workbook??
Bref j'ai ajouté un bouton et modifié la macro

A+ François

 

[sylvanu]

Bonjour Fanfan

J'ai pas compris à quoi sert ta fonction recherche4

Yohann a créé un doublon. Voir ce fil pour le Recherce4.

Est ce un doublon avec : https://excel-downloads.com/threads/recherchev-avec-4-criteres-vba.20079416/ ?