XL 2010 ListBox et lien hypertexte

Papychou56 · 2 Décembre 2020

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 · 3 Décembre 2020

Papychou56 à dit:
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 · 3 Décembre 2020

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 · 3 Décembre 2020

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 :

VB:

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 · 3 Décembre 2020

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.

XL 2010 ListBox et lien hypertexte

Papychou56

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Papychou56

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Papychou56

XLDnaute Nouveau

Discussions similaires