Filtrage grace au double clic sur une cellule

Bonjour à tous chers Excel-pratiquants !

Je vous explique mon probleme , mon pere m'a demandé de l'aide pour son boulot , il doit réaliser un fichier excel

qui sur une 1er page affiche une liste a 2 colonnes et quand il clique sur un élément de la 2eme colonne , tous les cellule ayant le meme contenu d'une 2eme page sont regroupées et affichées sur cette 2eme feuille

Voir image jointe :

Et 1er tentative

https://www.excel-pratique.com/~files/doc2/test_1_.xls

Merci de bien vouloir essayé de m'aider

(Bises )

Bonsoir et bienvenue

Merci de lire notre Charte

Extrait :

# un fichier joint avec votre message augmentera le nombre et la clareté des réponses (avant de joindre un fichier, veuillez IMPERATIVEMENT lire ceci)

# un minimum de politesse est de rigueur (bonjour, SVP, merci, ...), sans cela vous aurez très peu de chance d'obtenir une réponse

Amicalement

Nad

Est ce mieux ainsi Nad?

Bonjour,

Est ce mieux ainsi Nad?

Oui, Bien mieux..... (Nous ne sommes pas des robots, juste des bénévoles.....)

Regarde le fichier joint

Un double clic, dans l'onglet "base", sur une des marques, te fait l'extraction vers l'onglet "Extraction"

Le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
Dim FeuilD As Worksheet, FeuilE As Worksheet
Dim DerLig As Long, Lig As Long
If Not Intersect(Target, Range("D15:D" & [D65000].End(xlUp).Row)) Is Nothing Then
    If Target = "" Then Exit Sub
    Set FeuilD = Sheets("données")
    Set FeuilE = Sheets("Extraction")
    With FeuilD
        .Range("C2:E" & .[E65000].End(xlUp).Row).Name = "base"
    End With
    With FeuilE
        .[F1] = "Marque": .[F2] = Target
        FeuilD.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
            "F1:F2"), CopyToRange:=.Range("A1:C1"), Unique:=False
        .Columns(6).Clear
        DerLig = .[B65000].End(xlUp).Row
        If DerLig = 1 Then Exit Sub
        For Each Cel In .Range("B2:B" & DerLig)
            Lig = Application.Match(Cel.Value, FeuilD.Columns(4), 0)
            Cel.Offset(, -1) = IIf(FeuilD.Cells(Lig, 3).Value = "", _
                FeuilD.Cells(Lig, 3).End(xlUp).Value, FeuilD.Cells(Lig, 3))
        Next Cel
    End With
End If
End Sub

Fait à partir de ton fichier....

Maintenant, si ton fichier réel ne respecte pas la structure de ton fichier exemple, et que tu n'arrives pas à adapter le code, reviens....

https://www.excel-pratique.com/~files/doc2/test_1_v1.zip

Bonne journée

Merci beaucoup c'est tout à fait ce que je voulais

Juste une autre petite question de présentation que mon père m'a demandé , existe t'il un code ou un autre de moyen de faire changer l aspect de la cellule ou l'aspect du curseur dans le but de montrer les cases où il faut cliquer ( par exemple avoir un curseur "doigt" quand on passe sur la cellule "MBR" à la facon des hyper link)

Encore merci pour ton aide