Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 copier coller une ligne de classeur A à classeur B

  • Initiateur de la discussion Initiateur de la discussion YohanSC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

YohanSC

XLDnaute Nouveau
Bonjour,

J'ai exploité un partie de code sur le forum mais je ne comprends pas tout de ce code.

Le morceau de code qui coince se trouve dans la copie d'une ligne située à la 100éme ligne du classeurA à copier sur la feuille "Données" du classeurB à la dernière ligne vide.

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

Set wsCopy = Workbooks("classeurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("classeurB.xlsx").Worksheets("Données")

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("100:100").Copy _
wsDest.Range("B" & lDestLastRow)

Est-ce que vous pouvez m'aider?

Merci

Yohan
 
Solution
Si tu cpoies A1:Z1 vers B1:ZA1, d'accord tant que ZA existe
tu décale d'une colonne, mais excel est limité en nombre de colonnes, comme tu copie une ligne entière, au collage, çà déborde
wsCopy.Range("A100:AAA100").Copy
Si tu cpoies A1:Z1 vers B1:ZA1, d'accord tant que ZA existe
tu décale d'une colonne, mais excel est limité en nombre de colonnes, comme tu copie une ligne entière, au collage, çà déborde
wsCopy.Range("A100:AAA100").Copy
 
Ah OK super merci cela fonctionne.

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A100:I100").Copy _
wsDest.Range("A" & lDestLastRow)

En plus , je ne suis pas obligé de copier toute la ligne en fait.
Cependant encore une question : lors du collage il colle les formules au lieu des valeurs.
Je ne peux pas rajouter un .value quelque part?

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
Réponses
3
Affichages
582
  • Question Question
Microsoft 365 Cpier/coller en VBA
Réponses
7
Affichages
690
Réponses
5
Affichages
813
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…