VBA equivalent .end(xlup) avec xldown[RESOLU]

[Etn]

Bonjour

Je travaille avec une macro comportant cette ligne :

nblig = .Cells(Rows.Count, NomClasseur.Column).End(xlUp).Row

Le fait est que je souhaiterais remplacer le ".end(xlUp)" par une sorte de "Selection.End(xlDown)". (mais cela ne fonctionne pas)

Je sous entends par la que plutot de partir de la fin et de remonter pour connaitre la derniere ligne, je voudrais partir de la cellule de base et descendre jusqu'à la derniere non vide. (me permettant ainsi d'ajouter un nouveau tableau en dessous de la colonne).

Merci de votre aide.
Etn

 

[mapomme]

Bonjour @Etn,
Joignez donc un fichier avec des données et avec ce que voulez obtenir.
Le paramètre xlDown peut présenter des inconvénient s'il y a des cellules vides intercalées dans la colonne.

 

[fanfan38]

Bonjour
Range("A1").end(xldown).row
ATTENTION! s'arrete à la 1ére cellule vide de la colonne...
A+ François
Ps remplacer A1 par la 1"re cellule de ta selection...

 

[Etn]

Bonjour à vous deux et merci pour votre aide.

En fait je n'avais pas modifié la cellule de reference... Du coup le xldown fonctionne désormais (et oui sans cellules vides dans la colonne evidemment).

Merci encore pour votre aide.

Bonne journée
Etn