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

Résolu
cs_Larsen21 Messages postés 4 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 31 janvier 2006 - 27 janv. 2006 à 20:31
cs_Larsen21 Messages postés 4 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 31 janvier 2006 - 27 janv. 2006 à 22:26
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

Utilisateur anonyme
27 janv. 2006 à 22:10
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.
cs_Larsen21 Messages postés 4 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 31 janvier 2006
27 janv. 2006 à 22:26
Merci pour tout tu m'as enlevé une belle épine du pied.
Rejoignez-nous