Pour aller de F3 jusqu'à la dernière cellule de la colonne F, on peut faire
Range("F3" ).Select
Range(Selection, Selection.End(xlDown)).Select
|
On peut aussi utiliser xlToLeft, xlToRight, etc.
Ou bien on peut utiliser une boucle pour trouver le numéro de la ligne de la première cellule vide en dessous de F3
Set src_feuille = ThisWorkbook.Sheets("Feuil1" )
src_col_no = 6 ' pour la colonne F (A = 1, B = 2)
src_lg_no = 3 ' à partir de la troisième ligne
Do While Not IsEmpty(src_feuille.Cells(src_lg_no, src_col_no))
src_lg_no = src_lg_no + 1
Loop
|