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

Question

Bonjour, je souhaiterai savoir quel est le code pour compter le nombre de lignes cach&#233;es dans une feuille excel.

 


En effet, je d&#233;veloppe un programme qui gr&#226;ce &#224; une combobox contenant
les mois de l'ann&#233;e  s&#233;lectionne les lignes correspondantes au mois
s&#233;lectionn&#233; et qui cache les autres, j'ai rajout&#233; en plus des moi de
l'ann&#233;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&#233;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

Charles Racaud · Accepted Answer

Bonjour,

On utilise tout simplement la propri&#233;t&#233; 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&#233;es : " & RowsHiddenTrue
  MsgBox "Lignes affich&#233;es : " & RowsHiddenFalse

End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Larsen21 · Answer

Merci pour tout tu m'as enlev&#233; une belle &#233;pine du pied.