XL 2010 ListBox et lien hypertexte

[Papychou56]

Bonjour le Forum.
Papy est de nouveau perdu: j'ai une feuille sur laquelle j'ai créé une ListBox.
Je souhaiterai pouvoir activer automatiquement un lien hypertexte lorsqu'un choix est fait dans la ListBox.
Ci-joint un exemple en pièce jointe:
-Colonne A: liste de villes.
-Colonne B: liste de liens menant au site de l'office de tourisme de la ville choisie.
Merci par avance.

 

[Jacky67]

Bonjour le Forum.
Papy est de nouveau perdu: j'ai une feuille sur laquelle j'ai créé une ListBox.
Je souhaiterai pouvoir activer automatiquement un lien hypertexte lorsqu'un choix est fait dans la ListBox.
Ci-joint un exemple en pièce jointe:
-Colonne A: liste de villes.
-Colonne B: liste de liens menant au site de l'office de tourisme de la ville choisie.
Merci par avance.

Bonjour Papy 😉
Se sont des villes fantôme et des offices de tourisme complices👻

 

[Papychou56]

Gloups!!!
Je suis désolé, Jacky67..... Je ne comprends pas pourquoi ma pièce jointe est une page blanche.
Peut-être parce qu'elle était ouverte quand je l'ai jointe...?
Papy est un peu fatigué...
J'espère que cette fois-ci ça va être bon.
Merci quand même de m'avoir consacré un peu de temps.
Cordialement.

 

[job75]

Bonjour Papychou56, Jacky67,

Il ne s'agit pas d'une ListBox mais d'une liste de validation en D2, voyez le fichier joint.

La macro pour activer les liens hypertextes :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2]) Is Nothing Then Exit Sub
On Error Resume Next
ThisWorkbook.FollowHyperlink Cells(Application.Match([D2], Columns(1), 0), 2).Hyperlinks(1).Address
End Sub

A+

 

[Papychou56]

Bonjour Job75.
Merci d'avoir bien voulu aider un Papy qui cherche à comprendre.
Effectivement, si je confonds ListBox et liste de validation, je ne vais pas avancer....
Ton exemple fonctionne parfaitement et je comprends mieux mes erreurs.
Je te remercie grandement pour ton aide: Papy sera un peu moins bête après ça!😅
Bonne journée à toutes et tous.