determiner nombre de ligne

[iboga24]

bonjour,

je suis débutant en vba, et j'aimerai savoir comment determiner le nombre de ligne d'un ensemble de données.

je m'explique:
- j'ai un ensemble de donnée sur ma feuille excel.
- j'ai fait un filtre, et donc certaines lignes sont masquées.

j'aimerai determiner le nombre de ligne (non masquée) de mes données.

ps:j'ai fait l'opération suivante,

nblign = Sheets("BASE").UsedRange.Rows.Count

mais elle me donne le nombre total de lignes (les masquées comprises)

aider moi svp!

 

[Pierrot93]

Re : determiner nombre de ligne

Bonsoir Iboga

essaye ainsi :

Dim nblign As Long
nblign = Sheets("BASE").UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

bonne soirée
@+

 

[iboga24]

Re : determiner nombre de ligne

bonjour,

j'ai modifier le code comme suggéré, mais le résultat me donne "1", a tous les coups.

cordialement,

 

[Staple1600]

Re : determiner nombre de ligne

Bonjour iboga24, pierrot93, le fil, le forum


Essayes ceci

[COLOR=Green]' total des lignes de la plage filtrée[/COLOR]
MsgBox [_FilterDataBase].Rows.Count[COLOR=Green] [COLOR=Black]-1[/COLOR]
[/COLOR]
[COLOR=Green]'[/COLOR] [COLOR=Green]total ligne non masquées[/COLOR]
MsgBox [_FilterDataBase].SpecialCells(xlCellTypeVisible).Count - 1

Le -1 c'est pour ne pas compter la ligne d'entête

PS: code testé, donc fonctionnel 😉

 

[youky(BJ)]

Re : determiner nombre de ligne

Bonjour le fil et bonjour le forum,
j'avais vu comme ceci pour la colonne A

MsgBox Application.Subtotal(103, [A:A]) - 1

Bruno

 

[iboga24]

Re : determiner nombre de ligne

j'ai tenté les codes proposés par staple1600, mais ça ne passe pas chez moi.

par contre, celui de youky marche!

merci à tous.