Microsoft 365 Trouver la dernière ligne d'un tableau

[Roseline]

Bonjour,
J'ai besoin d'aide concernant mon tableau Excel.
Je veux me positionner sur la dernière cellule vide d'une colonne mais je n'y arrive pas.
Ma commande m'apporte au bas complètement de mon tableau.
Dans mon exemple j'ai inscrit 220 dans la cellule A6 donc j'aimerais que lorsque je clique sur le bouton1 je me positionne sur la cellule A7 au lieu de cela, je me retrouve au bas complètement de la colonne A.
J'ai joint mon fichier en guise de référence.
Merci de votre aide si précieuse.

 

[fanch55]

Bonsoir,

Sub B_DerniereLigne()
'    Call ResetFiltreTable
    
    lr = [Tableau1[Colonne1]].Rows([Tableau1].Rows.Count).End(xlUp).Row
    [Tableau1[Colonne1]].Rows(lr).Select
End Sub

 

[Roseline]

Bonsoir,

Sub B_DerniereLigne()
'    Call ResetFiltreTable
   
    lr = [Tableau1[Colonne1]].Rows([Tableau1].Rows.Count).End(xlUp).Row
    [Tableau1[Colonne1]].Rows(lr).Select
End Sub

Merci Fanch55 c'est super et ça fonctionne nickel.
Bonne journée 😉

 

[superware]

Bonsoir, chez moi cela ne fonctionne pas, pourtant je pense avoir changé les bons paramètres:

 lr = [Tableau5[Date]].Rows([Tableau5].Rows.Count).End(xlUp).Row
    [Tableau5[Date]].Rows(lr).Select

mon tableau est le 5 et je voudrais me positionner apres la derniere date( A8 dans ce cas)
je mets une copie d'ecran car mon ficher est complexe:

 

[TooFatBoy]

Bonjour, pourtant c'est bon (à +1 près).

 

[fanch55]

Bonjour,
Ma réponse rapide était adapté au tableau de Roseline.
Ce n'était pas une réponse universelle .
Le code correct est celui-ci :
( attention, ce n'est pas la dernière ligne vide du tableau
mais la dernière ligne vide d'une colonne précise du tableau )

Sub DerniereLignevide()
    lr = [Tableau5[Date]].Rows([Tableau5].Rows.Count).End(xlUp).Offset(1).Row - [Tableau5[#Headers]].Row
    [Tableau5].Rows(lr).Select
End Sub

Cependant, j'attire votre attention qu'il est inutile de prévoir des lignes vides pour un tableau structuré ,
celui-ci s'étend dynamiquement dès que vous faite un listrows.add .