cs_Larsen21
Messages postés4Date d'inscriptionlundi 23 janvier 2006StatutMembreDernière intervention31 janvier 2006
-
27 janv. 2006 à 20:31
cs_Larsen21
Messages postés4Date d'inscriptionlundi 23 janvier 2006StatutMembreDernière intervention31 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
A voir également:
Le nouveau défi : Compter les lignes cachés sur une feuille excel avec VBA
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