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.