Discussion :

[Vincent32]

Bonjour,

Qu'est ce qui ne va pas dans cette ligne de code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ws1.Range(Cells(1, 1), Cells(DerL1 - 1, 1)).Copy ws4.Range("A:A")

J'ai un fichier qui comprend 20000 lignes
Je cherche à copier les cellules A2 à A19999 de la feuille 1 sur les cellules A1 à A19998 de la feuille 2

Cordialement

Vincent

[Daniel.C]

J'essaierais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ws1.Range(Cells(2, 1), Cells(DerL1 - 1, 1)).Copy ws4.Range("A1")

si DerL1=20000

[Vincent32]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  'Recherche de la dernière ligne renseignée dans la colonne A de la feuille 1
    DerL1 = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
 
    'Recopie de la colonne A2 à Ax-1 de la feuille 1 dans la feuille 4
    ws1.Range(Cells(2, 1), Cells(DerL1 - 1, 1)).Copy ws4.Range("A1")

Non ça ne fonctionne pas non plus ...

[Daniel.C]

Qu'est-ce que tu obtiens ?

[Vincent32]

J'obtiens :

Erreur d'exécution '1004' :

La méthode 'Range' de l'objet '_Worksheet' a échoué

Une idée ?

[DeTraX]

et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ws1.Range(Cells(2, 1), Cells(DerL1 - 1, 1)).Copy 
ws4.Range("A1").Select
Selection.Paste

Si ça ne marche pas, peux-tu nous donner la valeur de DerL1 au moment de la sélection ?