Lien hypertexte dans listbox

Bon bin, ça bugue encore, j'ai testé 2 options :
1.

Code:

---

1 2 3 4 5 6 7

Private Sub ListBox1_Click() hyperlien End Sub Sub hyperlien() Lien = Me.ListBox1.List(Me.ListBox1.ListIndex, 12) Cellulelien = Range("J" & Application.Match(Lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Range(Cellulelien).Hyperlinks.Item(1).Address

---

et là j'ai erreur 13 : incompatibilité de type à la ligne

Code:

---

Cellulelien = Range("J" & Application.Match(Lien, Sheets("Feuil2").Range("J:J"), 0)).Address

---

2.

Code:

---

1 2 3 4 5 6 7 8

Private Sub ListBox1_Click() UserForm1.ListBox1.List(i) = Range("J" & i).Select hyperlien End Sub Sub hyperlien() Lien = ActiveCell Cellulelien = Range("J" & Application.Match(Lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Range(Cellulelien).Hyperlinks.Item(1).Address

---

et là j'ai erreur 1004 : la méthode range de l'objet _global a échoué pour la ligne :

Code:

---

UserForm1.ListBox1.List(i) = Range("J" & i).Select

---

et en la changeant en seulement :

Code:

---

Range("J1").Activate

---

J'ai erreur 9 : l'indice n'appartient pas à la séléction pour la ligne :

Code:

---

hlien = Range(Cellulelien).Hyperlinks.Item(1).Address

---

bonjour Gecoo,

Citation:

---

Erreur --> UserForm1.ListBox1.List(i) = Range("J" & i).Select

---

il ne faut pas mettre un .Select sur cette ligne

Citation:

---

erreur-- > hlien = Range(Cellulelien).Hyperlinks.Item(1).Address

---

essai avec SubAddress

Code:

---

hlien = Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

J'ai tenté cela mais sans succès :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ListBox1_Click() For i = 0 To 10 UserForm1.ListBox1.Selected(i) = True Range("J" & i).Activate hyperlien Next End Sub   Sub hyperlien() Lien = ActiveCell Cellulelien = Range("J" & Application.Match(Lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

ça bugue au :

Code:

---

Range("J" & i).Activate

---

et pour : "Range("J1").Activate avec le SubAddress ça bugue aussi.

En testant cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ListBox1_Click() For i = 0 To 10 If UserForm1.ListBox1.Selected(i) = True Then Range("J" & i).Activate hyperlien End If Next End Sub Sub hyperlien() Lien = ActiveCell Cellulelien = Range("J" & Application.Match(Lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

ça bugue à :

Code:

---

hlien = Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

avec erreur d'exécution 9 : l'indice n'appartient pas à la sélection.

bonjour gecoo,

à tu met un code sur la page UserForm, se référent à une cellule du fichier et doit indiquer la feuille également.
et si la colonne (feuille)des lien est J la colonne de list n'est certainement pas 12 mais plutot 9

Code:

---

1 2 3

lien = Me.ListBox1.List(Me.ListBox1.ListIndex, 9) Cellulelien = Sheets("xx").Range("J" & Application.Match(lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Sheets("xx").Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

bonjour Gecoo,

je t'ai préparé une fichier exemple ici;
http://www.cijoint.fr/cjlink.php?fil...cijBUHMV55.xls

Boujour Sabzzz,

Même avec :

Code:

---

1 2 3

lien = Me.ListBox1.List(Me.ListBox1.ListIndex, 9) Cellulelien = Sheets("xx").Range("J" & Application.Match(lien, Sheets("Feuil2").Range("J:J"), 0)).Address hlien = Sheets("xx").Range(Cellulelien).Hyperlinks.Item(1).SubAddress

---

J'ai toujours une incompatibilité de type à la ligne :

Code:

---

Cellulelien = Sheets("xx").Range("J" & Application.Match(lien, Sheets("Feuil2").Range("J:J"), 0)).Address

---

De plus, à cause des conditions extrèmement sécurisées de ma bôîte je ne peux accèder au fichier exemple que tu me propose. Peut-on faire autrement ?

C'est bon je m'en suis sorti. :D Du coup, j'utilise cela :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 1 To 10 If UserForm1.ListBox1.Selected(i) = True Then Range("J" & i + 1).Select Application.Run "hyperlien" End If Next End Sub

---

Et :

Code:

---

1 2 3

Sub hyperlien() On Error GoTo Fin Lien = ActiveCell

---

etc...

Merci beaucoup pour ton aide. :ccool: