Recuperer indice d'une ligne dans 1 entier

[Benzema]

Bonjour,

Comment recuperer l'indice de la ligne du la derniere cellule remplie dans 1 Integer ?

 

[Pierrot93]

Re : Recuperer indice d'une ligne dans 1 entier

Re,

pour la dernière cellule remplie de la colonne A :

Dim x As Integer
x = Range("A65536").End(xlUp).Row

bon après midi
@+

 

[Pierrot93]

Re : Recuperer indice d'une ligne dans 1 entier

Re,

dernière ligne sur la feuille active :

Dim x As Integer
x = Cells.Find("*", , xlValues, , 1, 2, 0).Row

 

[kjin]

Re : Recuperer indice d'une ligne dans 1 entier

Bonjour,
Tout dépend si les cellules sont disséminées ou pas
si c'est le cas

x = ActiveSheet.UsedRange.Cells(1, 1).Row + ActiveSheet.UsedRange.Rows.Count - 1

sinon, si elles sont groupir

Dim x%
x = Range("A1").CurrentRegion.Rows.Count

Edit : Trop rapide Pierrot
A+
kjin

 

[Benzema]

Re : Recuperer indice d'une ligne dans 1 entier

Merci de vos reponses,

J'ai trouver dans 1 bouquin le meme code que Pierrot

FinalRow = Sheets("Sheet35").Range("A65536").End(xlUp).Row

Ca marche nickel.

Merci a tous