Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Robert
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Robert

XLDnaute Barbatruc
Repose en paix
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) :

Code:
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...
 

Pièces jointes

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

VB:
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
 

Pièces jointes

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

Bonjour à tous,

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

Code:
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 :

Code:
Sub Macro1()
Dim x&
x = Evaluate("MATCH(9^9,LN(INDEX(Tableau1,,2)<>""""))") + [Tableau1].Row - 1
MsgBox x
End Sub
A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
Réponses
6
Affichages
3 K
OuiOuiNonNon
O
L
Réponses
12
Affichages
5 K
LionelF
L
P
Réponses
2
Affichages
1 K
Padbol
P
K
Réponses
4
Affichages
2 K
K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…