Comptage de lign apres filtrage.

[barry white]

Comptage de lignes apres filtrage.

Bonjour à tous,

J'ai un petit souci pour compter le nombre de ligne apres filtrage.

Le cas ou j'ai plusieurs ligne apres filtre, la macro me remontre le nombre lignes attendu.

Dans le cas ou j'ai 0 ligne apres filtrage, la macro me remontre 1. (Je suppose qu il remontre la 1er ligne, ou il y a les libelés de colones).

Voici le code utilisé pour effectuer le comptage de ligne afficher apres filtrage.

    Set Rng = ActiveSheet.Range("N2:N" & Range("N" & Rows.Count).End(xlUp).Row)
    NumRowsCTINV = Rng.SpecialCells(xlVisible).Count

Malgrés que je dise de commencer à partir de N2.

Merci pour votre aide.

 

[kjin]

Re : Comptage de lign apres filtrage.

Bonsoir,
Sans avoir vu le filtre, en principe

NbLignes  = ActiveSheet.Cells.SpecialCells(xlVisible).Rows.Count - 1

A+
kjin

 

[barry white]

Re : Comptage de lign apres filtrage.

Merci pour ton retour,

Mais ca ne marche pas. J'ai un exemple où apres application du filtre, j'ai qu'une ligne. Avec le code que tu m'a donné, la macro m'indique 0 ligne.

 

[kjin]

Re : Comptage de lign apres filtrage.

Bonsoir,

Sans avoir vu le filtre....

On risque de tourner en rond...
A+
kjin

 

[barry white]

Re : Comptage de lign apres filtrage.

Voici :

    Selection.AutoFilter Field:=14, Criteria1:="="
    Selection.AutoFilter Field:=7, Criteria1:="CTI"
     NumRows = ActiveSheet.Cells.SpecialCells(xlVisible).Rows.Count
    derliG = Range("A65536").End(xlUp).Row - 1

Merci de ton aide.

 

[kjin]

Re : Comptage de lign apres filtrage.

Ânerie N° 2
A+
kjin

 

[barry white]

Re : Comptage de lign apres filtrage.

J'ai appliqué ton code est sa me donne ce chiffe "16736511". ca fait un ptit peu beaucoup pour 0 ligne trouvé lol

J'arrive pas a comprendre pourquoi sa ne marche pas;

 

[barry white]

Re : Comptage de lign apres filtrage.

J'ai trouvé, à la place de "N1" j'ai mis "N2". Le pb persiste toujours.

Je resume (avec ton code)

Quand le filtre trouve une ligne, la macro m'affiche 0 (A cause du moins 1).

Quand le filtre trouve pas de ligne, la m'accro affiche 0 aussi.


Quand j'enleve le "-1"

Quand le filtre trouve une ligne, la macro donne comme valeur 1.

Quand le fitre trouve aucune ligne, la macro affiche aussi 1.

Bizard bizard.

J'espere avoir donné pluq de précision à mon souci.

Merci encore

 

[kjin]

Re : Comptage de lign apres filtrage.

Bonsoir,
Effectivement. Désolé, je n'avais pas testé
La solution la plus efficace reste la fonction sous-total si le résultat est 0, ici avec la colonne N

NbLign = Application.Subtotal(3, Columns("N:N")) - 1

A+
kjin

 

[barry white]

Re : Comptage de lign apres filtrage.

Bonsoir,
Effectivement. Désolé, je n'avais pas testé
La solution la plus efficace reste la fonction sous-total si le résultat est 0, ici avec la colonne N

NbLign = Application.Subtotal(3, Columns("N:N")) - 1

A+
kjin

Désolés toujours le meme souci, quand le filtre trouve une ligne, bah la macro indique 0 avec le dernier code.

 

[skoobi]

Re : Comptage de lign apres filtrage.

Bonjour barry_white,
kjin ,

et comme ceci?

[N1].currentregion.columns(1).specialcells(xlCellTypeVisible).count - 1

 

[barry white]

Re : Comptage de lign apres filtrage.

Bonjour barry_white,
kjin ,

et comme ceci?

[N1].currentregion.columns(1).specialcells(xlCellTypeVisible).count - 1

Nikel!!! Merci à vous deux.

Par contre "Currentregion" veut dire quoi??

 

[skoobi]

Re : Comptage de lign apres filtrage.

Re,

Par contre "Currentregion" veut dire quoi??

Toute la zone délimitée par une ligne vide et colonne vide pour la cellule indiquée ainsi que les cellules adjacentes.