listbox et liens hypertext

job75

XLDnaute Barbatruc

• 23 Juin 2009

• #2

Re : listbox et liens hypertext

Bonjour DIGGERJACK,

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

A+

 

Dernière édition: 23 Juin 2009

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 23 Juin 2009

• #3

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Juin 2009

• #4

Re : listbox et liens hypertext

Bonsoir,

Voir PJ

JB

 

Pièces jointes

• FormHyperLienFeuilleListBox2.zip

  23.1 KB · Affichages: 67
• FormHyperLienFeuilleListBox2.zip

  23.1 KB · Affichages: 64
• FormHyperLienFeuilleListBox2.zip

  23.1 KB · Affichages: 69

Dernière édition: 23 Juin 2009

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 24 Juin 2009

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juin 2009

• #6

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 :

Code:

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

A+

 

Pièces jointes

• FormHyperLienFeuilleListBox2.zip

  17.6 KB · Affichages: 45
• FormHyperLienFeuilleListBox2.zip

  17.6 KB · Affichages: 45
• FormHyperLienFeuilleListBox2.zip

  17.6 KB · Affichages: 44

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Juin 2009

• #7

Re : listbox et liens hypertext

Bonjour,

ou

Code:

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

 

Dernière édition: 25 Juin 2009

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 25 Juin 2009

• #8

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

 

Vote positif 0 Vote négatif