Question lien hypertexte renvoyé dans tableau avec la fonction extraire

Question

J'ai une question, peut être que quelqu'un à la solution. Je mets mon fichier en pièce jointe : Ce que je souhaiterais faire : Lorsque vous ouvrirez le fichier excel, vous serez sur la page d'accueil. Dans le premier menu déroulant, vous sélectionner "ARA". Vous arriverez donc sur l'onglet "ARA" Ici lorsque vous appuyer sur filtrer vous voyez apparaitre dans le tableau dessous, une extraction de la base de donnée ARA qui se trouve dans l'onglet "BdDARA". Et c'est la qu'arrive ma question ; Est-il possible, si je met un lien hypertexte dans une cellule du tableau de la base de donnée ARA (Dans l'onglet BdDARA) de le voir réapparaitre dans mon tableau d'extraction de mon onglet "ARA" ? Et je parle d'apparaitre, je parle bien entendu de pouvoir cliquer dessus et de m'ouvrir le document souhaité ? D'avance merci pour vos retour. Bien cordialement Skatens...

Steelson · Answer

Tu vas bien récupérer une cellule soulignée en bleu, mais le lien ne sera pas actif ! je viens de faire l'essai...

Steelson · Answer

Ta macro plante, il a dû y avoir un problème de recopie.

Pour le filtre, je t'avais proposé une et une seule macro :

https://forum.excel-pratique.com/viewtopic.php?p=722475#p722475

Sub Filtrer()
    Sheets("BdD" & ActiveSheet.Name).ListObjects(1).Range.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("A3").CurrentRegion, _
    CopyToRange:=Range("A7").CurrentRegion, Unique:=False
End Sub

J'avais fait de même pour les menus déroulants, plus besoin de customiser les zones ...

https://forum.excel-pratique.com/viewtopic.php?p=722607#p722607

' CONDITIONS
' la cellule A1 de la feuille commence par le texte "AIDE A LA PRECO"
' la feuille "BdDXXXXX" doit exister et comporter un tableau, XXXX étant la feuille où sont construites les listes déroulantes dépendantes
' les listes déroulantes concernent les cellules A4 et suivantes

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim nbZones As Integer
Dim data() As Variant
Dim choix() As Variant
Dim dico As Object
Dim i&, iData&, iZone&
    If Not Sh.Range("A1").Value Like "AIDE A LA PRECO*" Then Exit Sub
    nbZones = Cells(3, Columns.Count).End(xlToLeft).Column
    If Target.Count <> 1 Then Exit Sub
    ReDim choix(1 To nbZones)
    For i = 1 To nbZones
        choix(i) = Cells(4, i).Value
        If Not Intersect(Cells(4, i), Target) Is Nothing Then
            data = Sheets("BdD" & Sh.Name).ListObjects(1).DataBodyRange.Value
            Set dico = CreateObject("Scripting.Dictionary")
            For iData = 1 To UBound(data)
                flag = True
                If i > 1 Then
                    For iZone = 1 To i - 1
                        If choix(iZone) <> CStr(data(iData, iZone)) Then flag = False
                    Next
                End If
                If flag Then dico(CStr(data(iData, i))) = ""
            Next iData
            If dico.Count > 0 Then
                Target.Validation.Delete
                Target.Validation.Add xlValidateList, Formula1:=Join(dico.keys, ",")
            End If
            Exit For
        End If
    Next i
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim nbZones As Integer
    If Not Sh.Range("A1").Value Like "AIDE A LA PRECO*" Then Exit Sub
    nbZones = Cells(3, Columns.Count).End(xlToLeft).Column
    For i = 1 To nbZones
        If Not Intersect(Cells(4, i), Target) Is Nothing Then
            If i < nbZones Then
                Application.EnableEvents = False
                For iZone = i + 1 To nbZones
                    With Cells(4, iZone)
                        .Value = ""
                        .Validation.Delete
                    End With
                Next
                Application.EnableEvents = True
            End If
            Exit For
        End If
    Next
End Sub

mais en effet tu n'as pas téléchargé le fichier exemple.

Je t'invite fortement à les prendre en compte, cela simplifiera le travail, plus besoin de nommer et renommer les zones !