Discussion :

[gigalia]

Bonjour,

J'ai créé une macro pour copie une ligne d'une feuille vers une autre feuille. Le problème est que le collage se fait toujours sur la première ligne de la nouvelle feuille. Je souhaiterais que le collage se fasse sur la première ligne vide. Qu'est ce qui cloche sur ma macro?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub copie2()
 
Sheets("feuil1").Select
Rows("1").Copy
Sheets("feuil2").Select
ActiveSheet.Paste
 
End Sub

[fring]

Bonjour,

Ceci devrait convenir

Code :

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

Sheets("feuil1").Rows(1).Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)

[gourmand]

Peux tu expliqué ton code? Je ne le comprend pas.

[fring]

Sheets("feuil1").Rows(1).Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)
Source de la copie Destination de la copie

Sheets("feuil1").Rows(1).Copy = copie de la ligne 1 de la feuille 1

Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2) = vers la ligne sous la dernière ligne utilisée de la colonne A de la feuille 2

Cells(Rows.Count, 1).End(xlUp) = dernière ligne utilisée de la colonne A

(2) = décalage de 1 ligne vers le bas, correspond à Offset(1, 0)

[gourmand]

merci

[fring]

Précision complémentaire concernant l'utilisation de End(xlUp) ou End(xlDown).

Je constate souvent que pour trouver la dernière ligne utilisée d'une colonne, les gens utilisent Range("A1").End(xlDown). Avec cette méthode on est pas certain de trouver la dernière ligne utilisée de la colonne A mais la dernière ligne utilisée de la plage de cellules à partir de A1. C'est à dire que la procédure va parcourir les cellules de haut en bas, au départ de la cellule A1, jusqu'à ce qu'elle va trouver une ligne vide, même si d'autres lignes sont utilisées après cette ligne vide.

Pour être certain de trouver la dernière ligne utilisée de la colonne A, il vaut donc mieux utiliser Range("A65535").End(xlUp). Dans ce cas la procédure va parcourir les cellules de bas en haut, depuis la dernière ligne de la colonne A jusqu'à la dernière ligne utilisée de cette colonne.

Vu que depuis la version 2007 le nombre de lignes est passé à plus d'un million, la solution pour rendre compatible cette ligne de code concernant le nombre de ligne est de la laisser elle même compter le nombre de lignes disponibles sur la feuille en utilisant Rows.Count

Exemple :
A1 xx
A2 xx
A3
A4 xx
A5 xx

Range("A1").End(xlDown) = aboutira à la ligne 2

Range("A" & Rows.Count).End(xlUp) = aboutira à la ligne 5