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

job75

XLDnaute Barbatruc

• 5 Septembre 2019

• #2

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+

 

Pièces jointes

• Classeur Liens Hypertexte(1).xlsm

  30 KB · Affichages: 24

Dernière édition: 5 Septembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Septembre 2019

• #3

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

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 5 Septembre 2019

• #4

Bonjour leeroy, job75, le forum,

Autre exemple

Slts

 

Pièces jointes

• Liste déroulante avec Liens Hypertexte via onglet.xlsm

  30.1 KB · Affichages: 32

Vote positif 0 Vote négatif

M

marco22

XLDnaute Occasionnel

• 9 Juin 2020

• #5

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?

 

Vote positif 0 Vote négatif