derniere ligne non vide

[Guilhem]

Bonjours,

je cherche la formule qui permet de renvoyer la derniere ligne non vide d'un tableau.

Pour le moment je bidouille avec un "while" mais bon c'est pas top

Merci d'avance

 

[BOISGONTIER]

Re : derniere ligne non vide

Bonsoir,

Dernière ligne de la colonne A:
Positionnement:
[A65000].End(xlUp).Select

No dernière ligne:
DerLigne = [A65000].End(xlUp).Row

Dernière ligne d'une feuille:

Cells.Find("*", , , , xlByRows, xlPrevious).Select

DerniereLigne = Cells.Find("*", , , , xlByRows, xlPrevious).Row

JB

 

[pierrejean]

Re : derniere ligne non vide

bonjour Guilhelm

Si le tableau est nommé

Range("Tableau").Row + Range("Tableau").Rows.Count-1

Salut JB

 

[Guilhem]

Re : derniere ligne non vide

Bonjours,

merci pour les reponses.

En effet, la formule ci-dessous marche pas mal mais j'arrive pas a l'adapter aux Colonnes (derniere colonne non vide du tableau!)
Cells.Find("*", , , , xlByRows, xlPrevious).Row

une idee??

 

[BOISGONTIER]

Re : derniere ligne non vide

Sub dernièreColonneFeuille()
x=Cells.Find("*", , , , xlByColumns, xlPrevious).Column
End Sub

JB

 

[Guilhem]

Re : derniere ligne non vide

j'avais oublier le "s" de columns...

merci