Autofilter Excel lorsque aucun critère n'est respecté

Dans Excel VBA, je veux que le count soit affiché comme nul lorsque le critère du filter n'est pas rempli et, sinon, je souhaite qu'il affiche le nombre exact de lignes filtrées. Cependant, le countur affiche 1 lorsque aucun résultat ne satisfait aux critères et même si 1 résultat satisfait les critères.

On Error Resume Next If .Range("D3", Range("D" & Rows.count).End(xlUp)).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "" Then MsgBox "vs4 is zero" V_S4 = 0 ThisWorkbook.Sheets(3).Range("E5").Value = V_S4 Else V_S4 = .Range("D3", Range("D" & Rows.count).End(xlUp)).SpecialCells(xlCellTypeVisible).count ThisWorkbook.Sheets(3).Range("E5").Value = V_S4 End If 

• Validation des données Excel à l'aide du décalage
• Lien hypertext et list déroulante numérotée dans excel
• Excel: plage de dates avec inputs non-uniques. Ne relève que les valeurs de la cellule adjacente si la date est la plus basse input non unique
• Recherche Excel – deux critères utilisant MATCH
• Comment écrire un script VB pour find plusieurs mots-keys dans toutes les cellules et mettre en surbrillance chaque mot-key?

 Dim lrow, i As Integer lrow = Cells(rows.Count, 4).End(xlUp).Row + 1 i = WorksheetFunction.CountA(Range("D1:D" & lrow).SpecialCells(xlCellTypeVisible)) - 1 If i=0 then MsgBox "vs4 is zero" V_S4 = 0 Else