Accéder a la derniere ligne d'un tableau à l'ouverture d'un onglet

Question

J'ai trouvé dans mes recherches comment écrire une macro pour accéder a la dernière ligne d'un tableau en partant du haut . Mon soucis est que j'ai plusieurs tableau les uns en dessous des autres ( un tableau par mois de l'année ) et la fonction s'arrête au 1er tableau. J'ai ensuite tenté en partant du bas de la feuille excel mais dans ce cas ma recherche s'arrete au bord bas du tableau, meme si les 10 dernieres lignes du tableau sont vides. Dans le code je lance la recherche sur la colonne "B" voici ce que j'ai essayé: Sub RechercheDerniereLigne() Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Offset(1, 0).Selec End Sub Auriez vous une astuce pour soit que la recherche (xlDown) ne s'arrete pas au 1er tableau ou que la recherche (xlUp) ne s'arrete pas à la limite du tableau ? Merci...

Baboutz · Accepted Answer

Oui, il suffit d'utiliser les outils que nous propose Excel. Utilise des tableaux structurés, tu n'auras aucun mal à récupérer la dernière ligne du tableau souhaité ! Bonne journée, Baboutz...

Baboutz · Accepted Answer

Re,

Dans ce cas là, ce code te donnera la dernière ligne non vide d'un tableau structuré :

Range("Nom_Tableau").ListObject.ListColumns(1).Range.Find("", SearchDirection:=xlNext).Row - 1

Ne pas oublier de renseigner le nom du tableau en question !

Bonne soirée,

Baboutz

21Formatic · Accepted Answer

Ca c'est ce que tu penses, mais il y a fort à parier que c'est très loin d'être le cas. Rien ne justifie de mettre 12 tableaux structurés les uns sous les autres sur la même feuille. Rien (ou presque) ne justifie de laisser des lignes vides dans un tableau structuré (comme essaie de te le faire remarquer Baboutz depuis quelques posts). Tu es donc pour le moment limité et embêté par la structure douteuse de ton fichier (comme dans bien des cas)...

3GB · Accepted Answer

Voici un essai pour déterminer la première ligne vide dans un tableau structuré, en supposant que les saisies se suivent (sinon, il faut la déterminer autrement) : with range("nomtableau") nvl = .rows.count - application.countblank(.columns(1)) + 1 end with Je rejoins mes camarades. Si possible, il ne faut pas avoir de lignes vides, le tableau se restructurant seul (il faut faire confiance aux utilisateurs), et y ajouter une colonne "Mois" pour passer de 12 tableaux à un seul. Pour les synthèses, on choisit un TCD ou on ajoute une condition supplémentaire dans les formules SOMME.SI.ENS ou SOMMEPROD. Cdlt...

Baboutz · Answer

Super !

Dans ce cas là, ce code te donne le N° de ligne de la dernière ligne du tableau :

    With Range("Nom_Tableau").ListObject
        MsgBox .ListRows(.ListRows.Count).Range.Row
    End With

Par contre ça te donne la limite du tableau. Donc si tu as des lignes vides, ça ne marche pas. Quels est l'intérêt d'avoir des lignes vides dans un tableau structuré ?

Baboutz · Answer

Tu m'as dit : Donc tu as des noms de tableaux. Donc il suffit de renseigner le nom du tableau de juillet dans la formule que je t'ai donnée pour avoir ton résultat... Range("Nom_Tableau").ListObject.ListColumns(2).Range.Find("", SearchDirection:=xlNext).Row - 1 Avec un fichier anonymisé, je pourrai t'aider plus rapidement.. Bonne journée, Baboutz...

Baboutz · Answer

Effectivement, le mieux reste un seul et unique tableau. Tu as fixé la limite à 30, c'est par rapport au nombre de jours dans le mois ou aucun rapport ?

On peut voir quelque chose comme ça :

Pour chaque personne. Et après tu pourrai jouer avec un TCD, un Power Pivot, un segment, des combinaisons de ces outils... Afin de réaliser une synthèse, et crois-moi, ce sera bien plus efficace !

galopin01 · Answer

Déjà une douzaine d'échange et on n'a toujours pas avancé d'un millimètre. Et si tu nous donnais un classeur en expliquant ce que tu envisages (c'est le but qui nous intéressent : pas les moyens fumeux que tu envisages ) : On pourrait surement te dire comment le faire... A+...