Filtre

salut

quand j'ai mis 5 dans cell E5 le msgbox apparait

Bonjour,

Essaie ainsi :

Sub Filter_Data()
Dim vCriteria, lo As ListObject, rng As Range
    With ActiveSheet
        Set lo = .ListObjects(1)
        vCriteria = .Cells(5).Value
    End With
    lo.Range.AutoFilter field:=1, Criteria1:=vCriteria
    On Error GoTo err_Handler
    With lo.AutoFilter.Range
        Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                  .SpecialCells(xlCellTypeVisible)
    End With
    Exit Sub
err_Handler:
    MsgBox "Il n'y a pas de données correspondantes au critère " _
           & vCriteria & ".", vbInformation, "Filtre"
    lo.Range.AutoFilter field:=1
End Sub

Merci infiniment eric

Re,

De rien !

Pense à clore le sujet, sauf si tu veux la plage filtrée dans une autre feuille.

Cdlt.