Discussion :

[Angel79]

Bonjour à tous!

Je voudrais sélectionner et copier uniquement les lignes remplies de mon tableau "Données" pour ensuite les recopier vers un autre classeur, sur une nouvelle feuille "compilation".

Comment faire?

Un autre problème va se poser concernant la copie dans "compilation".
Comme je dois copier les "données" de plusieurs tableaux (j'utiliserai la boucle), je ne voudrais pas que les données copiées dans "compilation" se superposent. Il faudrait que cela se fasse à la suite de la précédente copie.
C'est compliqué...

Merci pour votre précieuse aide.

[Megaxel]

Bonjour,
un truc qui pourrait t'aider:

Code :

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

1
2
 
DerniereLigne = Cells(32000,1).End(xlUp).Row

ça te donne le numéro de la dernière ligne remplie de la colonne A (ou 1, deuxième paramètre de cells(ligne, colonne).
Tu peux donc savoir jusqu'où tu dois sélectionner les cellules que tu veux déplacer, et à partir d'où tu peux coller les cellules sélectionnées sans écraser le reste.

[Megaxel]

Houps! Puisque tu vas jongler entre les onglets, précise bien:

Code :

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

1
2
 
Worksheets("NomOnglet").Cells(32000,1).End(xlUp).Row

pour éviter de te tromper d'onglets...

[Angel79]

Merci pour l'aide! Tu m'avais déjà donné ce truc pour effacer les lignes vierges

Par contre, je n'arrive pas à saisir toutes les lignes, de la première à la dernière.

Rows("1:1").Select
Rows(DerniereLigne).Select

Je ne sais pas quel mot employer pour dire "jusqu'à".

[bidou]

Code :

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

Range(Cells(1,1),Cells(DerniereLigne,1))

[Angel79]

Pb