XL 2021 Dernière ligne rempli d'un tableau de données filtrées

[treza88]

Bonjour à tous,

J'ai un problème pour trouver la dernière ligne d'un tableau de données(tableau qui permet de filtrer en haut des colonnes).
Et justement je voudrais avoir la dernière lignes après filtrage.

J'ai utilisé ce code :

Dim finTab As Long

finTab = Worksheets("Ma Feuille").Cells(Rows.Count, 1).End(xlUp).Row

il me trouve le bas du tableau, mais toujours avec les cellules vides.
Même quand je filtre et que je masque les cellules vides.

Comment puis je résoudre le problème ?

 

[job75]

Bonjour treza88,

Si le tableau structuré est nommé Tableau1 exécutez :

finTab = [Tableau1].ListObject.Range.Find("*", , xlValues, , xlByRows, xlPrevious).Row

Si le tableau est filtré les lignes filtrées sont ignorées.

A+

 

[treza88]

Merci job75 pour ta réponse, mais j'obtiens toujours 1 pour finTab.

Meme en selectionnant ma feuille :

finTab = Worksheets("maFeuille").ListObjects("monTableau").Range.Find("*", , xlValues, xlByRows, xlPrevious).Row

 

[job75]

J'ai bien dit qu'avec la méthode Find les lignes filtrées sont ignorées !

Si l'on veut qu'elles soient prises en compte il faut utiliser une boucle :

Dim i&, finTab&
With [Tableau1].ListObject.Range
    For i = .Rows.Count To 1 Step -1
        If Application.CountA(.Rows(i)) Then Exit For
    Next i
    finTab = i + .Row - 1
End With

 

[job75]

Pardon, au post #2 il manquait la 2ème virgule après xlValues, c'est corrigé.

 

[treza88]

Merci job75, c'est nickel.