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

XL 2016 VBA: dernière ligne valorisée d'une colonne ?

Dudu2

XLDnaute Barbatruc
Bonjour à tous,

Une question apparemment simple: quel est le numéro de la dernière ligne valorisée (formule ou constante) d'une colonne ?

Je pense que beaucoup d'entre nous répondraient un truc du genre:
DerniereLigneUtilisée = Range("X" & Rows.Count).End(xlUp).Row 'où X est la colonne donnée
ou encore:
DerniereLigneUtilisée = ActiveSheet.Columns(X).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row

SAUF que ça ne marche pas toujours quand par exemple il y a un filtre actif sur la colonne et que la dernière ligne réelle est masquée par le filtre (voir fichier joint).
Donc la question est, à part la méthode "artisanale" employée dans le fichier joint, y a-t-il un autre moyen de connaître cette ligne ?

Merci par avance.

Comparatif des méthodes qui fonctionnent mis à jour en tenant compte des plus récents posts.
 

Pièces jointes

  • Dernière ligne d'une colonne.xlsm
    294.5 KB · Affichages: 59
Dernière édition:
Solution
Bonsoir,

Tirée de lointains souvenirs, une fonction personnalisée :
VB: 
Function NumDerLig&(plage As Range, Optional relatif)
   NumDerLig = Application.Max(Application.IfError(Application.Match("z", plage.Columns(1)), 0), _
   Application.IfError(Application.Match(9 ^ 99, plage.Columns(1)), 0))
   If NumDerLig > 0 Then If IsMissing(relatif) Then NumDerLig = plage.Row - 1 + NumDerLig
End Function
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
bonjour a tous
oui moi aussi je l'ai testé hier la formule 9^9
bref ça ressemble beaucoup a mon idée de départ
j’étais sur que c’était cette voie qu'il fallait prendre
du coup maintenant on a une fonction stable ,propre et pérenne

sous les deux formes vu que perso je préfère evaluate
VB: 
Sub test()
MsgBox LastValueOnRange([A:A])
End Sub
Function LastValueOnRange(rng As Range)  'par vba application
With Application:    LastValueOnRange = .Max(.IfError(.Match("z", rng), 0), .IfError(.Match(9 ^ 99, rng), 0)): End With
End Function

'================================================================================================
Sub test2()
MsgBox LastValueOnRange2([A:A])
End Sub

Function LastValueOnRange2(rng) ' par evaluate
LastValueOnRange2 = Evaluate("MAX(iferror(match(""z""," & rng.Address(0, 0) & ",1),0), iferror(match(9^99," & rng.Address(0, 0) & ",1),0))")
End Function
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
par contre je viens de me rendre compte que vous n'utilisez pas l'argument 3 pour le string
.Max(.IfError(.Match("z", rng, 1), 1)

j'ignorais que par défaut c’était 1 , j'aurais plutôt pensé que c’était 0
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
patricktoulon à dit:
j'ignorais que par défaut c’était 1 , j'aurais plutôt pensé que c’était 0
Cliquez pour agrandir...

Je ne me suis rendu compte seulement très récemment que la valeur par défaut était 1. Comme quoi, on ne lit jamais assez attentivement l'aide Krosoft. Soit dit en passant, l'aide VBA en ligne (Excel360) est une vraie galère, soit elle tourne sans rien afficher, soit elle affiche un tas de choses inutiles. je vais plus vite par Gogole.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
Bonjour @mapomme
donc selon toi c'est mieux de le mettre ou pas ?
edit
un peu d'optional ca fait pas de mal
pour l'argument 2
  1. omis ou false ="neprend pas les numeriques en compte "
  2. true=prend les numerique en compte
VB: 
Sub test()
MsgBox LastValueOnRange([A:A], False)
End Sub
Function LastValueOnRange(rng As Range, Optional WithNumeric As Boolean = False) 'par vba application
With Application:    LastValueOnRange = .Max(.IfError(.Match("z", rng, 1), 1), IIf(WithNumeric, .IfError(.Match(9 ^ 99, rng, 1), 0), 0)): End With
End Function
 
Dernière édition:
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,
J'ai tendance à mettre tous les paramètres, ne serait-ce que pour que ce soit clair pour tout le monde y.c. les débutants. Évidemment ne pas l'avoir mis ci-dessus est une "exception à la règle", mais aucun membre de cette discussion n'est débutant (il faut bien que je justifie l'irrespect de ma propre règle )
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour @Dudu2
je sais pas perso, j'arrive bien a coder un evaluate à main levée
une idée pour rendre optional le string vide ?
car j'ai plutôt l'impression que le match choppe plutôt la dernière formule
du moins c'est comme çà qu'il faut l'interpréter je crois
je sais que toi c'est ce que tu voulais mais cette option serait un plus
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Je crois qu'il choppe plutôt la chaine (VartType de la cellule = 8) car il ne voit pas les formules à résultat numérique et avec .IfError(.Match("z", Columns(1), -1/0/1), 0) je ne vois pas de solution pour neutraliser la chaine vide.
 
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
et oui il y a une couillette dans le potage avec match et chaîne vide
dans le sens ou
MsgBox Application.Match("", [A1:A1000], (-1 ou 0 ou 1))donnera toujours la première occurrence si il y a au moins une occurrence
donc pour le zapper, je pense qu'il faut passer par autre chose que match
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
C'est aussi ce que je me suis dit

Pour info j'ai encore modifié le fichier du Post #1 pour quelques ajustements du code des fonctions.
C'est un manie de procéder en incrémental, une vraie galère pour les utilisateurs
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re j'avais deja tout ca dans mon didacticiel perso
la dernière valeur string non null
MsgBox Evaluate("MAX(ROW(A1:A30)*(A1:A30<>""""))")

et celle ci saute les valeurs 0
MsgBox Evaluate("MAX(ROW(A1:A30)*(A1:A30<>"""")*(A1:A30<>0))")

reste a intégrer le shunte des valeurs numeriques >0
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
188
Anthony_51
A
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
166
AlCapone
  • Résolu(e)
XL 2021 Dernière ligne utilisée d'une colonne et d'une ligne
Réponses
12
Affichages
426
vgendron
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
377
Chounoé
C
F
  • Résolu(e)
XL 2021 Filtre listbox, afficher dernière ligne ajouter d'une colonne.
2
Réponses
15
Affichages
983
patricktoulon
A
  • Résolu(e)
Microsoft 365 Nommer des feuilles en fonction des données d'une colonne
Réponses
9
Affichages
555
AD95
A
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
258
Dégé59
D
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
383
CathyLD
C
L
  • Question
Microsoft 365 Récupérer le nom de la colonne portant la dernière valeur supérieure à 0 sur une ligne
Réponses
3
Affichages
468
LucileCrn
L
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
349
Chaton77
I
  • Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
945
patricktoulon
G
  • Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
465
GClaire
G
S
  • Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
629
salma_hayek
S
  • Résolu(e)
XL 2021 supprimer les lignes vides de la ligne 8 à la dernière ligne vide
2
Réponses
20
Affichages
1 K
bsalv
B
G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
  • Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
465
job75
F
  • Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
931
Deadpool_CC
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
706
Pygos691
P
L
  • Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
398
ZiM
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…