Selection.Autofilter sur ComboBox

Question

Bonjour à tous !
J'ai réalisé un catalogue excel qui regroupe un grand nombre de produits qui doivent être triés par l'utilisateur pour qu'il trouve le produit qui lui convient.
Pour celà, il dispose d'un choix auto avec 4 Combobox. Dans la première Combobox, il choisit une classe mécanique, par exemple si il choisit (1 "500-999 cycles"), il filtrera tous les produits comprenant 1 dans la première colonne.
Même principe pour la 2ème Combobox, sauf qu'on filtre sur la deuxième colonne, les colonnes qui servent à filtrer sont cachées.
Mon problème : lorsque je filtre par exemple dans la Combobox 1 par (1 "500-999 cycles"), tous les produits avec un 1 dans la première colonne, on me demande maintenant lorsque l'utilisateur filtre par (1 "500-999 cycles"), qu'il voit apparaitre tous les produits avec un 1 mais aussi tous les produits de cycles supérieur, càd 2, 3, 4 et 5.
Je m'explique, il y à 6 types de cycles : X, 1, 2, 3, 4, 5, si l'utilisateur sélectionne X, on affiche tout, si il sélectionne 1, on affiche les produits de cycles 1, 2, 3, 4 et 5, si il sélctionne 2, les produits 2, 3, 4, 5 et ainsi de suite.
Voici le code de ma Combobox 1 sachant que les autres sont identiques et devront faire le même travail :

Private Sub ComboBox1_Change()
ActiveSheet.Unprotect ("essai")


Application.ScreenUpdating = False
On Error Resume Next
Dim CM As String * 1


'Filtre en direct la liste
CM = ComboBox1.Value
If CM = "" Then

Co1 = 0
    Else
        Selection.AutoFilter Field:=1, Criteria1:="=" & CM
        Co1 = 1
        
End If


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Et voici un imprim écran du fichier pour mieux comprendre :

Merci d'avance.

Keviin91 · Answer

Voici le lien de l'image :
http://www.zimage.biz/photo.php?id=75725

Selection.Autofilter sur ComboBox

1 réponse

Votre réponse

Discussions similaires