Comptage de lign apres filtrage.

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2009

• #2

Re : Comptage de lign apres filtrage.

Bonsoir,
Sans avoir vu le filtre, en principe

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #3

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Septembre 2009

• #4

Re : Comptage de lign apres filtrage.

Bonsoir,

kjin à dit:

Sans avoir vu le filtre....

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #5

Re : Comptage de lign apres filtrage.

Voici :

Code:

    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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Septembre 2009

• #6

Re : Comptage de lign apres filtrage.

Ânerie N° 2
A+
kjin

 

Dernière édition: 14 Septembre 2009

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #7

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;

 

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #8

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Septembre 2009

• #9

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

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #10

Re : Comptage de lign apres filtrage.

kjin à dit:

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

Code:

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

A+
kjin

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Septembre 2009

• #11

Re : Comptage de lign apres filtrage.

Bonjour barry_white,
kjin 🙂,

et comme ceci?

Code:

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

 

Vote positif 0 Vote négatif

B

barry white

XLDnaute Occasionnel

• 14 Septembre 2009

• #12

Re : Comptage de lign apres filtrage.

skoobi à dit:

Bonjour barry_white,
kjin 🙂,

et comme ceci?

Code:

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

Cliquez pour agrandir...

Nikel!!! Merci à vous deux.

Par contre "Currentregion" veut dire quoi??

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Septembre 2009

• #13

Re : Comptage de lign apres filtrage.

Re,

Par contre "Currentregion" veut dire quoi??

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif