Recuperer indice d'une ligne dans 1 entier

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2010

• #2

Re : Recuperer indice d'une ligne dans 1 entier

Re,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2010

• #3

Re : Recuperer indice d'une ligne dans 1 entier

Re,

dernière ligne sur la feuille active :

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 8 Novembre 2010

• #4

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

Code:

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

sinon, si elles sont groupir

Code:

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

Edit : Trop rapide Pierrot
A+
kjin

 

Vote positif 0 Vote négatif

B

Benzema

XLDnaute Junior

• 9 Novembre 2010

• #5

Re : Recuperer indice d'une ligne dans 1 entier

Merci de vos reponses,

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

Code:

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

Ca marche nickel.

Merci a tous

 

Vote positif 0 Vote négatif