Le nouveau défi : Compter les lignes cachés sur une feuille excel avec VBA [Résolu]

Signaler
Messages postés
4
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
31 janvier 2006
-
Messages postés
4
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
31 janvier 2006
-
Bonjour, je souhaiterai savoir quel est le code pour compter le nombre de lignes cachées dans une feuille excel.




En effet, je développe un programme qui grâce à une combobox contenant
les mois de l'année sélectionne les lignes correspondantes au mois
sélectionné et qui cache les autres, j'ai rajouté en plus des moi de
l'année le texte Tous qui me permet de voir toutes les lignes.

J'aurai besoin de savoir le nombre de lignes qui sont visibles et le nombre de lignes cachées.

Voici mon code :



Private Sub Combobox_Change()

i = 13

While Not IsEmpty(Cells(i, 1))



If Combobox.Text = "Tous" Then



Cells(i, 1).Select

Selection.EntireRow.Hidden = False





Else



If Cells(i, 1).Text = Combobox.Text Then

Cells(i, 1).Select


Selection.EntireRow.Hidden = False



Else

Cells(i, 1).Select

Selection.EntireRow.Hidden = True





End If



End If



i = i + 1



Wend



End sub



Merci d'avance

2 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Bonjour,

On utilise tout simplement la propriété en sens inverse:

Private Sub GetHiddenRow()

Dim RowsHiddenFalse As Integer
Dim RowsHiddenTrue As Integer
Dim i As Integer: i = 13

While Not IsEmpty(Cells(i, 1))
If Cells(i, 1).EntireRow.Hidden = True Then
RowsHiddenTrue = RowsHiddenTrue + 1
ElseIf Cells(i, 1).EntireRow.Hidden = False Then
RowsHiddenFalse = RowsHiddenFalse + 1
End If
i = i + 1
Wend

MsgBox "Lignes cachées : " & RowsHiddenTrue
MsgBox "Lignes affichées : " & RowsHiddenFalse

End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
31 janvier 2006

Merci pour tout tu m'as enlevé une belle épine du pied.