Filtrer en fonction de la valeur choisie dans une liste déroulante

Bonjour,

Je souhaite appliquer un filtre (tri) en fonction d'une valeur choisie dans une liste de choix.

C'est à dire pour un nom de produit choisi dans une liste à choix multiple,

je souhaite voir apparaître automatiquement que les lignes qui ont une croix dans la colonne du produit concerné.

Qui pourrais me donner une piste ou la solution.

(Voir le fichier joint en exemple)

Avec tous mes remerciement.

Bonsoir,

Est-ce que des segments ne feraient-ils pas l'affaire, vois et dis-nous.

Cordia5

Bonsoir

et merci pour cette première proposition.

les segment ne sont pas la solution que je recherche.

dans mon fichier en exemple je souhaiterais :

• 1 par exemple choisir le produit Alpha
• 2 automatiquement ne voir que les ligne 13 14 15 16 et 17 case indiquées d'une x

cela me permetrai d'ajouter ou de supprimer des x pour avoir des listes dynamiques

je pensais à une macro qui lancerais un tri sur la colonne produit en prenant en compte que les croix mais je ne sais pas si c'est une bonne idée et comment faire ?

en tous cas merci pour votre aide

Bonjour a tous,

J'ai ajouté un fichier plus compréhensible, je l'espère, sur mon problème.

Merci à qui aura une idée.

Bonne journée à vous

Bonsoir ledru,

en espérant avoir bien compris.

Cordia5

Bonjour CORDIA5

C'est exactement ce que je recherchais.

Un grand merci a toi.

Bonjour,

Une autre proposition.

Cdlt.

Option Explicit

Dim lo As ListObject

Public Sub Filter_data()
Dim rProduct As Range, ColIndex
    Set lo = Range("Données").ListObject
    Set rProduct = ActiveSheet.Cells(2, 3)
    Reset_data
    If Not IsEmpty(rProduct) Then
        ColIndex = Application.Match(rProduct, lo.HeaderRowRange, 0)
        lo.Range.AutoFilter ColIndex, "=x"
    End If
End Sub

Public Sub Reset_data()
    Set lo = Range("Données").ListObject
    If lo.ShowAutoFilter Then lo.AutoFilter.ShowAllData
End Sub

Merci Jean-Eric,

je me demande si le bouton filtrer est nécessaire du coût.

Ne peut-on pas appliquer le filtre directement au choix du produit ?

Et ne garder que le bouton RAZ.

En tous cas merci pour ces précisions.

Erick

Bonjour,

Une proposition événementielle au changement de produit.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, ColIndex
    If Target.Address = "$C$2" Then
        Set lo = Range("Données").ListObject
        modClean.Reset_data
        If Not IsEmpty(Target) Then
            ColIndex = Application.Match(Target.Value, lo.HeaderRowRange, 0)
            lo.Range.AutoFilter ColIndex, "=x"
        End If
    End If
End Sub

C'est absolument parfait

Merci Jean-Eric

Cdlt

Erick

Bonsoir,

C'est avec Jean-Eric c'est un niveau au-dessus.

Cordia5

Bonjour CORDIA5

Merci à toi d'avoir initier une tentative.

Bonne journée

Erick