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

leeroy

XLDnaute Nouveau
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ï
 

Fichiers joints

job75

XLDnaute Barbatruc
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 :
VB:
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+
 

Fichiers joints

Dernière édition:

job75

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

Discussions similaires


Haut Bas