Ouverture d'un lien hypertexte à partir d'une ListBox

Bonjour,

Je cherche à ouvrir un lien hypertexte depuis une ListBox, par un double-clic sur un élément.

Le code ci-dessous fonctionne, mais seulement lors de la deuxième requête.

En effet, lors du 1er double-clic, la variable code semble vide. Le lien ouvert est donc erroné. En fermant la fenêtre d'erreur et en double cliquant à nouveau, cela fonctionne.

Je ne comprend pas pourquoi !

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ListBox1.MultiSelect = fmMultiSelectSingle
Err = 0
code = Me.ListBox1.Column(0)     '2ème code testé : code = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
lien = "http://www.site.fr/detail?mots_cles=" & code
ActiveWorkbook.FollowHyperlink Address:=lien, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End If
End Sub

La ListBox, composée de 3 colonnes (code, produit, prix) est alimentée par un tableau.

Initialement, on peut sélectionner plusieurs éléments de cette ListBox à la fois (mais même en la passant en sélection unique, cela ne fonctionne pas).

Merci pour votre aide.

Bonjour,

Sans doute parce qu'aucun élément de la liste n'était sélectionné lors de ton premier clic. Au 2e cela fonctionne puisque ton premier a sélectionné un élément.

L'évènement s'applique en effet à l'objet (ListBox), pas à la liste !

Bonjour MFerrand,

Merci pour cet élément de réponse.

J'ai testé "clic" (pour sélectionner l'élément) + "double-clic", cela n'arrange rien...

Existe-t-il un code qui puisse régler ce problème ?

Merci.

bonjour

regarder ca :

Bonjour AMIR,

Merci.

J'ai mis exactement le même code, cela ne fonctionne pas !

bonjour

mais quand vous lancer a partir de mon fichier joint ,il fonctionne ou non

Bonjour,

Votre code fonctionne à partir de votre Userform.

Lorsque je colle le code dans mon fichier, j'ai la même erreur.