Erreur sur filtre

Bonjour à tous,

quand je click sur mon bouton recherche dans ma feuille "synthèse commande" mon userform recherche s'ouvre sans problème par contre quand je lance ma recherche j'ai une erreur d’exécution la methode auto filter à echoué.

Je ne vois pas d'ou peut provenir cette erreur pourriez vous m'aider à la résoudre?

Merci cordialement.

Bonjour,

ci-jointe correction

Ok super merci Thev.

j'ai encore un petit soucis j'ai créé un bouton RAZ des filtres avec ce code

Application.ScreenUpdating = False

With Feuil9

If .FilterMode = True Then .ShowAllData

.Rows("5:5001").EntireRow.Hidden = False 'Affiche les cellules masquées

.Range("$A$4:$M$5001").AutoFilter Field:=1, Criteria1:="<>"

End With

Application.ScreenUpdating = True

et j'ai une erreur sur le .showAllData quesqu'il ne lui convient pas?

Merci!!!

Bonjour,

Essayer ce code :

    Application.ScreenUpdating = False
    With Feuil9
        If .FilterMode = True Then .ShowAllData
        .ListObjects(1).Range.AutoFilter Field:=1, Criteria1:="<>"
    End With
    Application.ScreenUpdating = True

NB : Je ne vois pas à quoi sert cette instruction : " .Rows("5:5001").EntireRow.Hidden = False" qui me parait inutile après le .ShowAllData

Bonjour Thev,

c'est exact cette instruction ne sert pas c'est un reste d'un autre code que j'avais essayé .....

Par contre le tiens fonctionne très bien si je sélectionne la ligne du tableau filtré mais si je ne la sélectionne pas j'ai une erreur showAllData .

y-a t-il une solution pour éviter cette erreur si je sélectionne pas la ligne?

Merci Cordialement.

reglaet a écrit :

y-a t-il une solution pour éviter cette erreur si je sélectionne pas la ligne?

essayer alors ce code :

    Dim feuille_active As Worksheet

    Application.ScreenUpdating = False
    Set feuille_active = ActiveSheet
    With Feuil9
        .Activate
        If .FilterMode = True Then .ShowAllData
        .ListObjects(1).Range.AutoFilter Field:=1, Criteria1:="<>"
    End With
    feuille_active.Activate
    Application.ScreenUpdating = True

Bonjour Thev,

Je te remercie une fois de plus ça fonctionne parfaitement et répond à mes besoins

Bonne journée!!!!

Cordialement.