[VBA] Problème avec les filtres

Bonjour à tous,

J'ai un problème avec les filtres sous VBA. Je m'explique :

J'aimerai pouvoir filtrer les lignes d'une tableau en fonction d'un choix à partir d'une combobox :

Par exemple si l'on choisi AA dans notre userform, je veux que l'on ai que les ligne de AA avec des croix qui soient visibles

je vous joint mon fichier pour que ce soit plus claire.

Le code qui me pose problème

Private Sub CommandButton1_Click()

Dim Plage_de_recherche As Range

Dim Valeur_cherchée As String

Dim Trouvé As Range

Valeur_cherchée = ComboBox2

Set Plage_de_recherche = Sheets("DU").Range("A4:ED4")

Set Trouvé = Plage_de_recherche.Find(what:=Valeur_cherchée, LookIn:=xlValues)

Selection.AutoFilter

ActiveSheet.Range(Trouvé).AutoFilter Field:=1, Criteria1:="<>"

End Sub

Merci pour votre aide

Bonjour,

à tester,

Private Sub CommandButton1_Click()
Dim Plage_de_recherche As Range
Dim Valeur_cherchée As String
Dim Trouvé As Integer

Set sh1 = Sheets("DU")

   Valeur_cherchée = Me.ComboBox2
   Set Plage_de_recherche = sh1.Range("A4:ED4")
   Trouvé = Plage_de_recherche.Find(what:=Valeur_cherchée, LookIn:=xlValues).Column

    sh1.Activate
    ActiveSheet.Range(Plage_de_recherche.Address).AutoFilter Field:=2, Criteria1:="="
End Sub

ou bien

ActiveSheet.Range(Plage_de_recherche.Address).AutoFilter Field:=2, Criteria1:="=X"

je n'était par sur que c'était les vide ou les "X" à filtrer

Merci beaucoup la réponse. cela marche en partie, le filtre se fait uniquement sur la première colonne à chaque fois, je ne comprends pas pourquoi

le filtre se fait uniquement sur la première colonne à chaque fois, je ne comprends pas pourquoi

l'essai sur fichier transmit donne bien un filtre sur la colonne B