VBA trouver la dernière ligne occupée avant ligne 500

Bonjour à tous,

Pour un autre fil, j'ai besoin de connaitre la dernière ligne occupée avant la ligne 500.

La ligne 500 étant occupée par des formules.

et il se peut que la dernière ligne occupée soit la ligne 20 (on ne compte pas la 500)

donc un trou de 480 lignes que je dois gérer.

édit: il peut y avoir des vides parmi les 20 lignes qu'il faut compter

Bonne journée

Claude.

Bonjour,

Pour trouver la première ligne vide dans la colonne A

Range("A1").End(xlDown)(2)

Amicalement

Dan

salut et merci Dan,

mais je ne sais pas dans quelle colonne se trouve la cellule occupée !

édit: et il peut y avoir des lignes vides

çà se corse !

Claude.

re,

Pour connaitre la dernière ligne occupée à partir de A1 :

Range("A1").CurrentRegion.Rows.Count

C'est cela que tu veux ?

Dan

re,

Je n'arrive pas à exploiter ton code.

j'ai essayé

Dim Nb

Nb = Range("a1").CurrentRegion.Rows.Count

çà donne Nb=1

en fait il me faudrait un N° de ligne, un peu comme ceci :

    Dim DerLig As Long
    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row

mais à partir de la ligne 500 . tu vois ?

Claude.

Bonjour Claude, Dan,

Proposition :

Derlig = Range("A1:IV499").Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

re,forum,

Ok Sylvain, c'est tout à fait çà.

Merci à tous les deux

Bonne soirée

à+....Claude.