Liste deroulante avec liens hypertextes

Bonjour a tous

Merci de prendre du temps pour m'aider.

Je souhaiterai savoir comment m'y prendre pour reprdrendre via uneliste déroulante,l'ensemble des liens hypertextes qui me prennent trop de place sur ma page d'accueil de mon classeur excel.

Le hic n'est pas la création de la liste...mais bien que les données reprises dans cette liste possèdent les mêmes attibuts que les liens hypertextes.

Autrement dit quand je clique sur une des valeurs de la liste; elle me renvoie soit vers : une autres feuilles du classeur, un lien internet ou encore vers d'autres fichiers se trouvant dans mon ordinateur.

J'espère avoir été suffisament clair

Merci de vos retours

Bonjour. Bienvenue sur le Forum

Code de Feuil1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ref As String, feuille As String
    If Target.Address = "$J$20" Then
        If Left(Target.Value, 5) = "http:" Then
            ActiveWorkbook.FollowHyperlink Address:=Target.Value, _
            NewWindow:=True
            Exit Sub
        End If

        If InStr(Target.Value, "!") > 0 Then
            feuille = Left(Target.Value, InStr(Target.Value, "!") - 1)
            Sheets(feuille).Select
            ref = Right(Target.Value, Len(Target.Value) - InStr(Target.Value, "!"))
            Sheets(feuille).Range(ref).Select
        Else
            Range(Target.Value).Select
        End If
    End If

End Sub

Code dans Module1

Public MaValeur As Variant

Cordialement

Tout d'abord, merci pour ta réponse rapide.

En fait lorsque je rentre les formules dans mon classeur (et que j'ai modifié la cellule correspondante) cela me met un message d'erreur. Le message suivant s'en suit: voir mon fichier joint avec les informations qui te permettront, j'espère de comprendre mon problème.

Au plaisir de te relire

Bonjour

mon fichier joint avec les informations

ton image ne montre ni la liste des liens, ni si ton adaptation est correcte.

cordialement

re,

j'ai joints le fichier complet, je pense qu'en effet cela sera plus probant.

Come je l'ai marqué dans le fichier ci-dessus, je voudrai ma liste déroulante en M20

Je compte par la suite cacher les cellules qui composent ma liste de validation (si vous avez une idée simple et pratique: je suis preneur )

au plaisir

re,

je me permet de relancer ma demande afin de voir si vous pouvez apporter une solution à mon problème.

Merci