Bonjour à toutes et tous,
J'ai un petit problème, j'ai reussi a bidouiller un code pour sélectionner a partir de la cellule A3 jusqu'a la dernière cellule non vide, et de copier cette sélection sur une autre page . Cela fonctionne sauf quand il n'y a que la cellule A3 qui est non vide, c'est a dire qu'a partir de A4 toutes les cellules sont vide. Auriez vous une astuce pour éviter le problème ?
Par avance merci de vos retour
C
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Synth").Select
Worksheets("W").Paste Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)
J'ai un petit problème, j'ai reussi a bidouiller un code pour sélectionner a partir de la cellule A3 jusqu'a la dernière cellule non vide, et de copier cette sélection sur une autre page . Cela fonctionne sauf quand il n'y a que la cellule A3 qui est non vide, c'est a dire qu'a partir de A4 toutes les cellules sont vide. Auriez vous une astuce pour éviter le problème ?
Par avance merci de vos retour
C
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Synth").Select
Worksheets("W").Paste Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)