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.