Dernière ligne

Bonsoir jephté the best,

Voici un exemple plus simple pour retourner la dernière ligne
non vide d'un tableau, selon la colonne B :

Dim dlig As Long ' dernière ligne
dlig = Range("B" & Rows.Count).End(xlUp).Row

Rows.Count retourne le nombre de lignes : 65 535 avec Excel 2003,
1 048 576 lignes avec Excel 2007 ; donc avec Excel 2007,
Range("B" & Rows.Count) correspond à la cellule B1048576 ; ensuite,
le .End(xlUp) équivaut à < Ctrl >< ↑ > qui s'arrête sur la 1ère cellule
non vide rencontrée ; enfin, le .Row retourne la ligne de cette cellule.

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement.  😊
 

Bonjour,

Pour trouver la dernière ligne utilisée, plusieurs solutions :

A- si la dernière ligne utilisée n'est pas propre à une colonne, mais simplement à la feuille active, le plus simple est :

With ActiveSheet.UsedRange
     dernière_ligne_utilisée = .Rows.Count
End with

UsedRange correspond à la plage utilisée

B- sinon pour obtenir la dernière ligne utilisée sur la colonne A par exemple, 2 solutions possibles :

With ActiveSheet
     dernière_ligne_utilisée  =   .Range("A:A").Find("*", SearchOrder:=xlRows, SearchDirection:=xlPrevious).Row
End with

.Find cherche la première cellule non vide dans la colonne A en remontant depuis la dernière
.Row donne le numéro de ligne de cette cellule

ou

With ActiveSheet
   dernière_ligne_utilisée  =   .Cells(.Rows.Count,"A").End(xlUp).Row 
End with

.Cells(.Rows.Count,"A") est la dernière cellule de la colonne A
.End(xlUp) donne la première cellule non vide en remontant à partir de la dernière cellule de la colonne A
.Row donne le numéro de ligne de cette cellule