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

Phil69970

XLDnaute Barbatruc

• 6 Août 2020

• #2

Bonjour Dudu, le forum

Essaye ceci

=NBVAL(A:A)-1

@Phil69970

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Août 2020

• #3

Bonjour Dudu, le forum

Et le contraire pour avoir que le nbre de ligne filtré

=SOUS.TOTAL(3;A:A)

@Phil69970

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Août 2020

• #4

Re
En vba:

VB:

NbLignes = WorksheetFunction.CountA(Columns("A"))

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 6 Août 2020

• #5

Salut, tu as tjs ceci à consulter : Dernière ligne et la dernière colonne renseignées d'une feuille

VB:

Sub tst()
Dim Lastrow As Long
    Lastrow = Feuil1.UsedRange.Rows.Count
    Debug.Print Lastrow
End Sub

 

Dernière édition: 6 Août 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Août 2020

• #6

Merci pour vos propositions. Quelques remarques:

@Phil69970 NBVAL donne le nombre de valeurs. Si il y a des "trous" dans la colonne (des cellules vides) NBVAL ne donnera pas la dernière ligne valorisée.

@pierrejean pareil pour la fonction CountA

@kiki29 le UsedRange peut s'étendre en hauteur plus que la colonne cherchée.
De plus je pense qu'il faudrait plutôt faire UsedRange.Row + UsedRange.Rows.Count - 1 pour le cas où le UsedRange ne commencerait pas en 1ère ligne.
Le lien que tu indiques donne les méthodes classiques que j'ai mentionnées, sans jamais indiquer leurs limites dues au filtrage, comme d'hab ce qui est une magnifique source d'erreur.
Edit: correction le post #4 de ce lien fait référence au problème du filtre.

Il n'y a qu'une option que je n'avais pas testée (je l'ai ajoutée au fichier du Post #1):
ActiveSheet.Columns(1).SpecialCells(xlCellTypeLastCell).Address
mais elle est également sensible au filtrage et de plus elle ne tient pas compte du Range indiqué ActiveSheet.Columns(1) et prend en compte toute la feuille.

 

Dernière édition: 6 Août 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #7

Bonjour Dudu2
ben si tu veux j'ai un truc bien tordu de chez tordu

VB:

Sub test()
    MsgBox getLastValueHideOrNotHide([A:A])
End Sub

Function getLastValueHideOrNotHide(rng)
    Dim ligne
    With Application: t = Split(Join(.Transpose(.Index(rng, 0, 1)), ",||"), ","):
        getLastValueHideOrNotHide = .IfError(.Match("||", t, 0) - 1, False)
    End With
End Function

puré j'ai la migraine

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #8

et allez je ressort mes archives "evaluate" et ma fois

VB:

Sub test2()
    MsgBox Evaluate("=MATCH(""*"",A:A,-1)")
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Août 2020

• #9

Bonjour PatrickToulon,
Ah oui ! Ça déchire bien
Et ça marche !
Edit: je sais pas pourquoi mais le MATCH me plait davantage

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #10

non c'est la suivante qui déchire de simplicité

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #11

étonant non evaluate match(equiv) qui donne le dernier et non le premier avec un joker

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #12

Edit: je sais pas pourquoi mais le MATCH me plait davantage

Cliquez pour agrandir...

ben comme tu dis la premiere dechire bien .... le cerveau

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Août 2020

• #13

Enfin, il y a un petit bémol sur le Evaluate(MATCH) c'est que si la ou les dernières lignes est/sont une formule qui donne comme résultat 0 ou "", le MATCH est perdu pour les visiteurs.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Août 2020

• #14

a ben oui c'est bien ce que tu a demander (la dernière cellule Valorisée) attend j'en teste une autre

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Août 2020

• #15

Et le getLastValueHideOrNotHide il est perdu aussi parce que je lui ai placé une cellule vide dans la colonne et il s'y arrête.

Tu peux reprendre le fichier du Post #1 que je mets à jour.

 

Vote positif 0 Vote négatif