Dernière ligne éditée d'un Tableau

[Robert]

Bonjour à tous,

En pièce jointe un petit fichier exemple avec un tableau (hé oui, j'ai voulu écouter Misange mais je m'en mord les dents...)
Avant cette invention diabolique, quand on voulait, par VBA, déterminer la dernière cellule éditée d'une colonne on écrivait (pour la colonne B par exemple) :

DL = Cells(Application.Rows.Count, 2).End(xlUp).Row

on obtenait la ligne 29...
Dans l'exemple joint, ce même code me renvoie la ligne 33 qui est la dernière ligne éditée du tableau.
J'ai vu qu'avec ce genre de bestiole il fallait utiliser des Range("Tableau1[#All]") mais après quelques essais je ne suis pas arrivé à obtenir DL = 29 (toujours pour la colonne B).
C'est pourquoi je m'adresse à vous, avant d'adresser des Emails perso à Misange avec des menaces de représailles sérieuses, des Hou...., des sifflets si flais qu'ils font tomber les oreilles, des reproches, des invectives, voire même un désamour immédiat et irrémédiable.
C'est dire si je compte sur vous pour pouvoir, comme avant, être redevable, admiratif, fan, bref, retrouver l'amour non pas des tableaux mais de Misange...

 

[Si...]

Re : Dernière ligne éditée d'un Tableau

re et re

Re
Je suis tétu...

tu n'es pas le seul

Syntaxe tableau (optimisée) pour ce fichier

Sub Macro1()
  Formu = "=MAX(NOT(ISBLANK(Tableau1[Col2]))*ROW(Tableau1[Col2]))"
  X = Evaluate([Formu])
  MsgBox X
End Sub

Pour le fichier de regueiro voir la pièce jointe

 

[Efgé]

Re : Dernière ligne éditée d'un Tableau

Re
Edit : Je n'avais pas testé sur le bon fichier
Désolé
Cordialement

 

[job75]

Re : Dernière ligne éditée d'un Tableau

Bonjour à tous,

Pas tout suivi, mais si ceci n'a pas été présenté :

Sub Macro1()
Dim x&
With [Tableau1]
x = Evaluate("MATCH(9^9,LN(" & .Columns(2).Address & "<>""""))") + .Row - 1
End With
MsgBox x
End Sub

Edit : Si... préférera sans doute :

Sub Macro1()
Dim x&
x = Evaluate("MATCH(9^9,LN(INDEX(Tableau1,,2)<>""""))") + [Tableau1].Row - 1
MsgBox x
End Sub

A+