XL 2013 Sélectionner une plage jusqu'a la dernière cellule non vide

[desmonts]

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)

 

[chris]

Bonjour

On part du bas : tu peux tout remplacer par

Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Copy _
Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)

 

[desmonts]

Merci beaucoup Chris,
cela fonctionne très bien, parcontre j'ai quelques cas ou même la cellule A3 sera vide et dans ce cas il me copie la cellule A2 (qui elle est non vide mais que je ne veux pas copié), tu n'aurais pas une astuce pour contourner ce pb et donc ne rien copié du tout ou que du vide ?

 

[chris]

Bonjour

Dans ce cas imbrique dans un test :

If cells(3,1)<>""then
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Copy _
Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)
end if

 

[desmonts]

Merci Chris c'est super