Discussion :

[eglantine217]

Bonjour !

Je dois copier une plage de cellule de A67 : E28720 (la ligne étant variable)
j'avais un code qui fonctionne très bien mais pour une petite plage de cellule

Code :

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

1
2
3
Range("A1:E9" ).Select 
Selection.Copy 
ActiveSheet.Paste

alors pour un total de 28720 lignes voir + je n'y arrive pas je suis bloquée

Code :

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

1
2
3
4
5
6
7
8
9
Sub copier()
Dim Nb_Lignes1 As Long
Nb_Lignes1 = Range("A1").End(xlUp).Row
 
Range("A1", "A" & Nb_Lignes1).Copy
 
ActiveSheet.Paste
 
End Sub

merci d'avance

[Daniel.C]

Bonjour,

Pour déterminer la dernière ligne, tu peux utiliser, entre autres :

Code :

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

Nb_Lignes1 = Cells(Rows.Count, 1).End(xlUp).Row

ou

Code :

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

Nb_Lignes1 = Range("A1").End(xlDown).Row

La différence est que, la seconde méthode désignera la ligne précédant la première cellule vide de la colonne A. Il ne faut donc pas qu'il y ait de cellule vide au milieu des données de cette colonne.