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)
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 ?
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