Trouver la derniere cellule vide du classeur

[manu]

Salut,

Je suis en train de faire un macro !
Je dois copier des lignes au niveau de la dernière ligne du classeur !

sachant que toutes les cellules du classeur on un format la methode ctrl+fin ne marche pas

Avez vous une idee

 

[Eric]

tu peux faire un truc du genre

'selection de la celulle A1
range("A1").select

lig = 1
col = 1

while cells(ligne,col).value <> ""

lig = lig+1

wend

' a la sortie de la boucle lig te donnera le numéro de la première ligne (de la colonne A parce que col=1) qui est vide

j'espère que ca va d'aider
@++

 

[STéphane]

en cherchant dans tous les anciens messages avec les mots find xlprevious
vous trouverez des messages contenant des exemples du genre suivant :
Sub test()
Set rg_plage =cells
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With
Cells(LastL, LastC).Select



bye
Stéphane