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

Usine à gaz · 6 Mars 2022

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

TooFatBoy · 6 Mars 2022

Usine à gaz à dit:
SOUS.TOTAL(103;A6:A10000)

=10000-5-SOUS.TOTAL(103;A6:A10000)

job75 · 6 Mars 2022

Bonjour Lionel, le forum,

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

A+

Usine à gaz · 6 Mars 2022

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 · 6 Mars 2022

Bonjour Lionel, job75

Je te propose

=AGREGAT(3;5;A1:A20)

@Phil69970

Phil69970 · 6 Mars 2022

Re

En Vba

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

@Phil69970

Usine à gaz · 6 Mars 2022

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 · 6 Mars 2022

Phil69970 à dit:
Re

En Vba

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

@Phil69970

Je vais tenter le vba

TooFatBoy · 6 Mars 2022

Usine à gaz à dit:
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 · 6 Mars 2022

Usine à gaz à dit:
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 · 6 Mars 2022

Marcel32 à dit:
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 · 6 Mars 2022

Re

Une autre version

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

@Phil69970

TooFatBoy · 6 Mars 2022

Usine à gaz à dit:
ça me donne : 9969 alors qu'il y en a 6990

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

djidji59430 · 6 Mars 2022

Bonjour à tous,

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

Crdlmt

Phil69970 · 6 Mars 2022

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 · 6 Mars 2022

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

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

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

djidji59430

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires