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

fanch55

XLDnaute Barbatruc

• 30 Mars 2023

• #2

Bonsoir,

VB:

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

 

Vote positif 0 Vote négatif

Solution

Roseline

XLDnaute Occasionnel

• 31 Mars 2023

• #3

fanch55 à dit:

Bonsoir,

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

superware

XLDnaute Nouveau

• 25 Avril 2023

• #4

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

VB:

 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:

 

Pièces jointes

• excel 1.jpg

  22.2 KB · Affichages: 10

Dernière édition: 25 Avril 2023

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 25 Avril 2023

• #5

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 26 Avril 2023

• #6

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 )

VB:

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 .

 

Dernière édition: 26 Avril 2023

Vote positif 0 Vote négatif