Question lien hypertexte renvoyé dans tableau avec la fonction extraire
Bonjour à tous,
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
Bonjour,
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
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 !
Bonjour steelson,
Merci beaucoup, en fait je n'avais pas vu que tu avais continué a travailler sur le fichier, c'est excellent ce que tu as fais !
Du coup, je vais prendre ta méthode, qui permet d'automatiser un certain nombre de fonctions déja, top.
J'ai bien noté que pour les liens, effectivement ils apparaissent bien en bleu, mais impossible de cliquer dessus....
Je suis preneur si tu arrives a trouver la solution.
Encore merci vous deux les gars, ce forum est vraiment génial.
Bien cordialement
Skatens