listbox et liens hypertext

[DIGGERJACK]

Bonsoir le forum

Je viens de voir un excellent fichier de J Boisgontier et j'aimerias savoir s'il est possible de l'adapter pour que les liens hypertext ne renvoient pas à un site internet mais à un emplacement dans le document

C'est à dire au lieu d'aller vers Google par ex il me permettrait d'aller en AA250 sur la même feuille

Merci de votre aide et bravo à Jacques pour ce fichier très intéressant

Bonne soirée

 

[job75]

Re : listbox et liens hypertext

Bonjour DIGGERJACK,

Annulé. Désolé, je revois la question.

A+

 

[DIGGERJACK]

Re : listbox et liens hypertext

Bonsoir Job75

Merci de ta réponse
J'ai du mal m'exprimer car en fait les liens hypertext je connais mais j'aurais aimé pouvoir utilisé la listbox de J Boisgontier pour sélectionner ensuite mon lien dans la listbox

Bonne soirée

 

[BOISGONTIER]

Re : listbox et liens hypertext

Bonsoir,

Voir PJ

JB

 

[DIGGERJACK]

Re : listbox et liens hypertext

Bonsoir le forum job 75 et J Boisgontier

Merci Jacques pour l'adaptation de ton code. C'est exactement cela que je recherchais depuis quelques temps. Merci beaucoup

Bonne soirée

 

[job75]

Re : listbox et liens hypertext

Bonjour DIGGERJACK, JB, le forum,

Merci Jacques pour cet exemple superbe, moi non plus je ne connaissais pas la propriété SubAddress.

Je me permets cependant une modification, tu ne m'en voudras pas.

En effet Sheets(a(0)).Range(a(1)).Select ne fonctionne pas si Sheets(a(0)) n'est pas la feuille active ou si elle est masquée.

Ecrire plutôt :

Sheets(a(0)).Activate
ActiveSheet.Visible = True 'si la feuille est masquée
Range(a(1)).Select

A+

 

[BOISGONTIER]

Re : listbox et liens hypertext

Bonjour,

ou

Private Sub listbox1_Click()
    ligne = Me.ListBox1.ListIndex + 2
    temp = Sheets(1).Cells(ligne, "c").Hyperlinks(1).SubAddress
    a = Split(temp, "!")
    Application.Goto Reference:=Worksheets(a(0)).Range(a(1))
End Sub

Remarque:

Dans les lignes :

ligne = Int(Y / (ListBox1.Font.Size * 1.2))
Me.Curseur.Top = ligne * ListBox1.Font.Size * 1.2 + Me.ListBox1.Top

1.2 est approximatif et doit être affiné après essai si la hauteur de la listBox est importante(1.18?).

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormHyperLienFeuilleListBox.xls

JB

 

[DIGGERJACK]

Re : listbox et liens hypertext

Bonsoir job75 Boisgontier et le forum


Merci pour ces nouvelles infos qui je penses pourront servir à d'autres ......


Bonne soirée