listbox et hyperlien

[altinea]

Bonsoir le forum, j'ai cherché dans pas mal de fils et je n'ai pas trouvé ce que je souhaite, je fait appel à votre aide pour pouvoir à partir d'une listbox pouvoir choisir un item et qu'il suive le lien hypertext de la cellule conjointe.
Listbox ou combo box sur la feuille sans passer par un user.

merci pour votre aide

 

[job75]

Re : listbox et hyperlien

Bonsoir altinea,

Voyez le fichier joint avec ces 2 macros dans le code de la feuille :

Private Sub ComboBox1_Gotfocus()
ComboBox1.List = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value
ComboBox1 = ""
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Application.Goto Evaluate(Cells(ComboBox1.ListIndex + 1, 2).Hyperlinks(1).SubAddress)
End Sub

Edit : j'ai mis la propriété MatchEntry sur 2.

Bonne fin de soirée.

 

[job75]

Re : listbox et hyperlien

Re,

Cette version (2) est un peu plus élaborée :

Private Sub ComboBox1_Gotfocus()
ComboBox1.List = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value
ComboBox1 = ""
ComboBox1.DropDown
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim a$
On Error Resume Next
a = Cells(ComboBox1.ListIndex + 1, 2).Hyperlinks(1).SubAddress
ActiveCell.Activate 'désactive la ComboBox
Application.Goto Evaluate(a)
End Sub

Bonne nuit.

 

[altinea]

Re : listbox et hyperlien

job75 merci pour ton aide à priori ça fonctionne
merci encore