XL 2019 copier/coller colonne vers ligne

YohanSC · 4 Novembre 2023

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 · 4 Novembre 2023

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

VB:

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 · 4 Novembre 2023

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 · 4 Novembre 2023

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 · 4 Novembre 2023

Bonjour Fanfan

fanfan38 à dit:
J'ai pas compris à quoi sert ta fonction recherche4

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

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

XL 2019 copier/coller colonne vers ligne

YohanSC

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

YohanSC

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Discussions similaires