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

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

st007

XLDnaute Barbatruc
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
 

YohanSC

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées