compter les cellules visibles

G

Guest

Guest

• 31 Octobre 2009

• #2

Re : compter les cellules visibles

Bonjour Murdoc,

Sans plus d'explication ni exemple,

Essai toujours ceci:

Code:

ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Count

Ou

Code:

Range("A2:A1000").SpecialCells(xlCellTypeVisible).Count

Ou pour nombre de lignes moins l'entête

Code:

Application.SubTotal(3, [A1:A1000]) - 1

Ou encore pour le nombre de lignes

Code:

Range("A1:A1000").SpecialCells(xlCellTypeVisible).rows.Count

A+

 

Dernière modification par un modérateur: 31 Octobre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Octobre 2009

• #3

Re : compter les cellules visibles

Bonjour à tous, Hasco (salute)



Essaie avec SOUS.TOTAL(3;Plage)

ou plage est par exemple : A2:A100

en VBA

Sub test()
Dim x
x = [=SUBTOTAL(3,A2:A100)]
MsgBox x
End Sub

Cliquez pour agrandir...

 

Dernière édition: 31 Octobre 2009

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2009

• #4

Re : compter les cellules visibles

Bonjour,

x = Application.Subtotal(3, [A1:A1000])

JB

 

Vote positif 0 Vote négatif

S

saverloo

XLDnaute Occasionnel

• 31 Octobre 2009

• #5

Re : compter les cellules visibles

pq ne pas faire simplement un nbval ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Octobre 2009

• #6

Re : compter les cellules visibles

Bonsoir


Essayes les deux, tu verras une différence de résultat 😉

NBVAL prend tout

SOUS.TOTAL(3;plage) -> la plage filtrée

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 1 Novembre 2009

• #7

Re : compter les cellules visibles

Merci à tous pour votre aide mais j'ai finalmement trouvé une solution bien plus simple, qui est de rajouté une colonne avec 1 dans chaques cellules et après je fait une simple somme à la fin de fin de mon tableau (avec une marge en nbre de ligne assez raisonnable). Le résultat semble varier en fonction du filtre effectué ce qui me convient parfaitement.

A bientôt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Novembre 2009

• #8

Re : compter les cellules visibles

Bonsoir


C'est pourtant plus simple (et fait pour cela 🙄 ) d'utiliser la fonction: SOUS.TOTAL

Exemple: si tu as un filtre actif sur la colonne A
=SOUS.TOTAL(3;A2:A100)

te renverra le résultat de ton filtre (nombre de lignes visibles)

 

Vote positif 0 Vote négatif