Compter les lignes, ne pas inclure les masquées

[sophie]

Bonjour,

J'aimerais compter le nombre de lignes visibles à l'écran. J'ai un document
dont je masque plusieurs lignes ici et là.

Existe-t-il une fonction qui permet de compter le nombre de lignes visible
seulement. J'ai vérifier NBVal et NB mais ils inclus les lignes masquées
(ex: NBVAL(A1:A50))

J'ai remarqué que si je sélectionne de A1 à A50 avec ma souris et que dans
la barre d'état je demande d'utiliser la fonction compteur au lieu de somme,
il utilise NBVAL mais n'inclue pas les lignes masquées...

Merci de votre aide

Sophie

[isabelle]

Bonjour Sophie

essaie avec la fonction sous.total
=Sous.Total(3;A:A)

SOUS.TOTAL(no_fonction;réf1;réf2;...)

no_fonction représente le nombre compris entre 1 et 11 indiquant quelle fonction utiliser pour calculer
les sous-totaux d'une liste.

no_fonction Fonction
1 MOYENNE
2 NB
3 NBVAL
4 MAX
5 MIN
6 PRODUIT
7 ECARTYPE
8 ECARTYPEP
9 SOMME
10 VAR
11 VAR.P

a+
isabelle

sophie a écrit :

[Denis Michon]

Bonjour Sophie,

ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

cependant si ton tableau ne contient pas de lignes vides,

Personnellement , je préférerais

Activesheet.range("Une cellule de ton
tableau").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Count

La méthode UsedRange représente une plage de cellules utilisées (la
totalité) dans une feuilles.

Salutations!

"sophie" <malouin...@qcmines.com> a écrit dans le message news:
O7Qw2AMJBHA.1328@tkmsftngp04...

[Denis Michon]

Bonjour Sophie

Oublie l'autre message....

Sub CompterLignes()
On Error Resume Next
ActiveSheet.Range("A1:A50").SpecialCells(xlCellTypeVisible).Rows.Count

End Sub

Salutations!

"sophie" <malouin...@qcmines.com> a écrit dans le message news:
O7Qw2AMJBHA.1328@tkmsftngp04...

[popi]

Salut Sophie, pour la fonction je passe ou sinon par macro en sélectionnant
tes lignes avant,

Sub compte_lignes_visibles()
Dim compteur As String
compteur = 0
For Each Row In Selection.Rows
If Row.Hidden = True Then
compteur = compteur
Else
compteur = compteur + 1
End If
Next Row
MsgBox compteur
End Sub

çà te convient ?

--
@+ popi
" Quadra ressoudeur "
http://perso.infonie.fr/popi/

"sophie" <malouin...@qcmines.com> a écrit dans le message news:
O7Qw2AMJBHA.1328@tkmsftngp04...

[isabelle]

Bonjour Sophie,

excuse moi, dans l'aide XL97 il est dit que la fonction SOUS.TOTAL ne prend pas en compte les lignes
masquées suite à un filtrage. je croyais que c'était valable aussi pour les lignes masqués manuellement
mais après vérification j'ai bien vue que ça ne l'était pas.
alors il reste la solution d'une macro comme celle de Popi ou d'une fonction personnalisé *.xla

Function CompteLignesVisibles(LigneÀvérifier As Range) As Integer
CompteLignesVisibles = LigneÀvérifier.SpecialCells(xlCellTypeVisible) _
.Rows.Count
End Function

a+
isabelle

sophie a écrit :
>

[Sophie]

Simplement pour vous dire un gros merci à tous.

J'apprécie grandement votre aide.

Sophie

[popi]

;-))))))))))))))))

--
@+ popi
" Quadra ressoudeur "
http://perso.infonie.fr/popi/

"Sophie" <malouin...@qcmines.com> a écrit dans le message news:
#qJo#VYJBHA.1656@tkmsftngp03...

[sabatier]

popi en rigole de ton merci, sophie ; moi, je te demande seulement si tu
ne vois pas d'inconvénient à ce que mes joues soient envahies d'un
teinte légèrement rosée attestant tout à la fois d'une grande
sensibilité et d'une non moins grande timidité face à l'élégance de ton
message
jps

[Jacques Thiernesse]

C'est pas plutôt le beaujolpif qui rosit tes joues?
Faire la cour à une demoiselle, à ton âge !
---------------------------------------------------
Il n'est pas impossible que ce "truc" ne figure point dans la FAQ ou sur
Disciplus.
http://dj.joss.free.fr/faq.htm
http://disciplus.simplex.free.fr

« Les remarques des fautes d'un ouvrage se feront avec modestie et civilité,
et la correction en sera soufferte de la mesme sorte. »
(Statuts & Reglemens de l'Academie françoise du 22 février 1635, art. XXXIV)

j.thie...@skynet.be
"sabatier" <jps...@club-internet.fr> a écrit dans le message news:
3B7A8A78...@club-internet.fr...

[AV]

Heuuu.. m'est avis que le teint rosé .....

AV

[AV]

Moi j'ai rien dit !
Tout au plus aurais-je impulsé ??

AV

Jacques Thiernesse <j.thie...@skynet.be> a écrit dans le message :
ezSnF7ZJBHA.932@tkmsftngp04...

[sabatier]

et remets-en une couche, sal...ard!
jps

[sabatier]

tu m'excuseras, alain, mais devant une telle réplique, je n'ai qu'un
geste : le pousse dirigé vers le bas + un grand coup de sifflet pour
appeler mes lions
à +
jps

[Clément Marcotte]

"sabatier" <jps...@club-internet.fr> a écrit dans le message news:
3B7AF71A...@club-internet.fr...

> le pousse dirigé vers le bas

Des plans pour que maman Sabatier ne revienne nous hanter
--
Clément Marcotte
"Être vraiment patient, c'est être patient quand vous ne pensiez plus qu'il
était possiblement concevable de l'être."
- Léonard de Vinci

[sabatier]

mon dieu, maman, où ton fils avait-il encore la tête? tiens, envoie-lui
plutôt une bonne bouteille de pouce-café
jps