XL 2016 Créer lien hypertexte à partir d'une liste déroulante

[leeroy]

Bonjour,

Je souhaterai que le contenu d'une cellule (liste de choix déroulante des feuilles du classeur) devienne un lien hypertexte vers la feuille. Le contenu de la feuille est donc un lien automatique vers l'onglet.

Pour appuyer mon explication douteuse, trouver ci-joint un fichier qui vous aidera à comprendre.

Merci par avance,
Leeroï

 

[job75]

Bonjour leeroy, le forum,

On ne voit pas trop l'intérêt de créer des liens hypertextes sur des listes de validation mais bon voyez le fichier joint :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, test As Boolean
Set r = [C3:G7] 'plage à adapter
Application.ScreenUpdating = False
r.Hyperlinks.Delete 'RAZ
On Error Resume Next
For Each r In r
    If r <> "" Then
        test = False
        test = r.Validation.Type = xlValidateList
        If test Then r.Hyperlinks.Add r, "", "'" & r & "'!A1"
    End If
Next
End Sub

A+

 

[job75]

J'avais écrit If test Then r.Hyperlinks.Add r, "", "#'" & r & "'!A1" mais le # n'est pas nécessaire, je l'ai retiré.

 

[riton00]

Bonjour leeroy, job75, le forum,

Autre exemple

Slts

 

[marco22]

Bonjour
j"ai essayé de mettre en application les liens hypertextes avec un menu déroulant mais cela ne fonctionne pas
j'ai copier la page dans mon classeur, j'ai changé le nom des onglets mais ça ne fonctionne pas pourquoi?