Microsoft 365 Compter le nombre de lignes masquées (feuille NON filtrée)

[Usine à gaz]

Bonjour à toutes et à tous,

Pour feuille NON filtrée :
Je cherche, en formule de préférence, à compter le nombre des lignes NON masquées (hauteur =0)

Malgré mes recherches, je n'ai pas trouvé.
Auriez-vous la bonne formule ?
Si besoin je joindrai un p'tit fichier test.

Merci à vous,
Bon dimanche,
lionel

 

[job75]

Bonjour Lionel, le forum,

Si toutes les cellules A1:A20 sont remplies =SOUS.TOTAL(103;A1:A20)

A+

 

[Usine à gaz]

Bonjour Gérard
Merci pour la formule,
Petit souci :

J'ai entrée la formule : =SOUS.TOTAL(103;A6:A10000)

ça me donne 6964, pourtant, il y en a 6990

 

[Phil69970]

Bonjour Lionel, job75

Je te propose

=AGREGAT(3;5;A1:A20)

@Phil69970

 

[Phil69970]

Re

En Vba

Sub Totalvisible()
MsgBox Range("A1:A20").SpecialCells(xlCellTypeVisible).Count
End Sub

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970,

Vraiment bizarre, j'ai le même problème qu'avec la formule de Gérard.

J'ai vérifié en faisant défiler mes 6990 lignes = toutes mes cellules colonnes A son renseingées

 

[Usine à gaz]

Re

En Vba

Sub Totalvisible()
MsgBox Range("A1:A20").SpecialCells(xlCellTypeVisible).Count
End Sub

@Phil69970

Je vais tenter le vba

 

[TooFatBoy]

J'ai vérifié en faisant défiler mes 6990 lignes = toutes mes cellules colonnes A son renseingées

T'as fait défiler tes 7000 lignes une par une et tu es sûr à 100 % de ne pas avoir raté au moins une cellule vide ?

Tu n'as jamais essayé la touche <Fin> puis la touche <flèche vers le bas> ?

 

[Usine à gaz]

Je vais tenter le vba

LOL, en vba c'est encore autre chose
MsgBox Range("A6:A10000").SpecialCells(xlCellTypeVisible).Count

ça me donne : 9969 alors qu'il y en a 6990

 

[Usine à gaz]

T'as fait défiler tes 7000 lignes une par une et tu es sûr à 100 % de ne pas avoir raté au moins une cellule vide ?

OUI, j'ai défilé page écran par page écran

 

[Phil69970]

Re

Une autre version

=AGREGAT(2;5;A1:A20)+NB.VIDE(A1:A20)

@Phil69970

 

[TooFatBoy]

ça me donne : 9969 alors qu'il y en a 6990

Et avec 11000 tu risques d'avoir 10969 comme résultat...

 

[djidji59430]

Bonjour à tous,

Et il vient quand, ton fichier test ?
On parle dans le vide, la

Crdlmt

 

[Phil69970]

Re

Lionel
par VBA il ne faut pas mettre 10000 mais le nombre exact de ligne ou alors il faut calculer la dernière ligne par VBA

Sub Totalvisible()
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'A adapter nom feuille

MsgBox Range("A1:A" & Derlig).SpecialCells(xlCellTypeVisible).Count
End Sub

@Phil69970

 

[Usine à gaz]

=NBVAL(A6:A10000;1)-1 = 6990