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 

 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 

Je crois que cela devrait fonctionner, laissez-moi savoir le résultat, s'il vous plaît, je suis désireux de lui donner un autre besoin si nécessaire.