Bonjour
Je souhaite compter les lignes de ma feuille (onglet)
Pour ce faire j'ai le code suivant (Sans filtres activés)
-----------------------------------------------------------------------------------------
Private Sub CommandButton23_Click()
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
Dim compteur, derligne As Integer
Dim cellule As Range
derligne = Worksheets("Materiels").Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Worksheets("Fiches").Range("A2:A" & derligne)
If cellule <> 0 Then
compteur = compteur + 1
End If
Next
'MsgBox compteur
MsgBox "Nombre de Matériels : " & compteur
End Sub
---------------------------------------------------------------------------------------
Cependant, comment puis-je améliorer le code en présence de filtres activés afin de ne compter que les lignes filtrées et non la totalité des lignes de l'onglet "Matériels" ?
Merci
Jacques
Je souhaite compter les lignes de ma feuille (onglet)
Pour ce faire j'ai le code suivant (Sans filtres activés)
-----------------------------------------------------------------------------------------
Private Sub CommandButton23_Click()
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
Dim compteur, derligne As Integer
Dim cellule As Range
derligne = Worksheets("Materiels").Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Worksheets("Fiches").Range("A2:A" & derligne)
If cellule <> 0 Then
compteur = compteur + 1
End If
Next
'MsgBox compteur
MsgBox "Nombre de Matériels : " & compteur
End Sub
---------------------------------------------------------------------------------------
Cependant, comment puis-je améliorer le code en présence de filtres activés afin de ne compter que les lignes filtrées et non la totalité des lignes de l'onglet "Matériels" ?
Merci
Jacques