Discussion :

[Eitel]

Bonjour à tous, j'espère que vous allez bien. Je suis un débutant en programmation VBA.
Voici mon problème, j'aimerais filtrer les cellules de la colonne 5 du tableau1 avec pour critère "les valeurs de cellules < ccombobox.value"

voici ma syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:= _
        "<*" & Combobox1.Value & "*", Operator:=xlAnd

Mais mon tri ne prend pas en considération ce critère. c'est comme s'il n'y en avait pas.
Je compte sur votre prompte réaction pour résoudre mon problème, merci d'avance.

[ARTURO83]

Bonjour,

Quelle est le type d'éléments à trier, Numériques, Alphanumériques, Alphabétiques? Montrez quelques exemples.
Si c'est numérique, pas besoin d'astérisques.

Cdlt

[Eitel]

Merci pour la réponse, j'y ai trouvé satisfaction.
en modifiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:= _
        "<*" & Combobox1.Value & "*", Operator:=xlAnd

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:= _
        "<" & Combobox1.Value, Operator:=xlAnd

J'ai réussi à faire mon filtre.