Liens dans ListBox

[malabarbe]

Bonjour à tous,

Dans ma feuille Excel, j'ai des liens vers des sites Internet

J'ai créé une ListBox ou je récupère les données de ma feuille

Mais, dans la ListBox, j'ai bien le nom du lien, mais la fonction
lien n'existe plus.

Comment faire pour conserver ces liens dans ma ListBox ?

A vous lire.

 

[Hulk]

Re : Liens dans ListBox

Hello,

Et si tu déposais ton fichier, tu crois pas qu'on y verrait un peu plus clair ?

Cdt, Hulk.

 

[malabarbe]

Re : Liens dans ListBox

Ok, merci de m'avoir répondu

Mon code est tout bête

For i = 2 To 10
    'Col (1) - Le Lien
    ListBox1.AddItem Worksheets("Liens").Cells(i, 1)
Next i

Dans Excel, j'ai :
Lien_1
Lien_2
Lien_3
etc...

Les liens dans Excel sont actifs et lancent le site Web

Quand la liste de liens se retrouve dans la ListBox,
le lien est passif et n'appelle plus rien !

 

[BOISGONTIER]

Re : Liens dans ListBox

Bonsoir,

Voir PJ

JB
Formation Excel VBA JB

 

[malabarbe]

Re : Liens dans ListBox

Ok BOISGONTIER,

L'exemple que m'a cité fonctionne.

La différence avec moi, c'est que mon lien est :
Le site a Pépé

et non pas http://www.le_site_a_pepe.machin.com

C'est un peu comme un racourci sur le bureau,
on peut le renommer tout en gardant le chemin.

 

[BOISGONTIER]

Re : Liens dans ListBox

Voir PJ

JB

 

[malabarbe]

Re : Liens dans ListBox

Merci Ok BOISGONTIER

pour les infos

C'est exactement ce que je cherchais

Encore Merci

@ +

 

[malabarbe]

Re : Liens dans ListBox

Bonjour,

Je me tourne à nouveau vers vous car ayant écouté vos
conseils, j’ai téléchargé et modifié le source des Hypers-
liens pour l’adapter a mes besoins, mais je butte sur sur
le changement de colonne !

Donc le but, c’était d’intégrer trois colonnes Excel dans
Une ListBox tout en conservant la validité des liens ce
Trouvant dans une colonne.

Cela tourne avec ce code si je met la Ville en col A:,
en B: la Date et en C: les comm's :

Private Sub UserForm_Initialize()
  Me.ListBox1.List = [A:C].Value
End Sub
'-----------------------------------------------
Private Sub listbox1_Click()
    Set result = [A:C].Find(ListBox1.Value)
    If Not result Is Nothing Then
      temp = AdrLien(Cells(result.Row, "b"))
      On Error Resume Next
      Err = 0
      ActiveWorkbook.FollowHyperlink Address:=temp, NewWindow:=True
      If Err <> 0 Then MsgBox "Erreur"
    End If
End Sub
'----------------------------------------------
Function AdrLien(c As Range)
   AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function

Dans ma feuille Excel, (col A: la Date), (col B: la Ville)
(col C: commentaires)
Le souci qui me reste, c’est que je voudrais que dans
la ListBox, la Date soit en colonne A :, La Ville en B : et en C : les comm's.
Mais la, les liens fonctionnent toujours mais n’aboutissent pas
Sur l’adresse demandée !
Pour les tests de la Date en col B :, j’ai seulement modifié :

      temp = Adrien(Cells(result.Row, "a"))
‘par
      temp = Adrien(Cells(result.Row, "b"))

Pour des raisons d’adaptabilité avec d’autre feuilles et d’autres
classeurs,je voudrais conserver cette disposition.

Vos bons conseils seront les bienvenus

 

[BOISGONTIER]

Re : Liens dans ListBox

Bonjour,

Voir PJ

JB

 

[malabarbe]

Re : Liens dans ListBox

Salut BOISGONTIER,

Un Grand Merci !
Une aide bien précieuse
Le source est parfait

1° - J'avais cherché sur le site mais pas trouvé ces sources

2° - J'ai deux autres questions, mais je ne sais pas si je dois créer
un nouveau post ou en faire-part ici ?

- La roulette de la souris ne fonctionne pas dans la ListBox
- Comment dans la ListBox au passage de la souris sur une
ligne, que celle-ci devienne bleue (comme après une sélection)

A moins que vous m'aiguillez sur des sources adéquates

A vous lire

 

[BOISGONTIER]

Re : Liens dans ListBox

Je ne penses pas que l'on puisse modifier la couleur au survol.
En PJ qq modifs.

JB

 

[malabarbe]

Re : Liens dans ListBox

Domage pour la ligne en surbrillance bleue, je croiais qu'avec
l'évènnement MouseOver il était possible de gérer ce genre de truc.

Merci pour le nouveau source très intéressant, il faudrai me
donner le chemin ou les trouver.

J'ai toujours la roulette de la souris qui ne fonctionne pas
dans la liste déroulante.

Par Macro, (d'après les sources que tu m'a conseillées),
par lien, on ouvre un site Web.

Toujours par Macro, est-il possible de refermer la page de
ce site Web ?

 

[BOISGONTIER]

Re : Liens dans ListBox

Version avec curseur bleu mais validation avec Double-clic.

JB

 

[malabarbe]

Re : Liens dans ListBox

Merci pour la nouvelle source, mais je ne l'ai pas encore
testée car un bug viens d'arriver !

J'utilise :
FormHyperLienListBox.zip dont je n'ai pas modifié le source

Le bug :
Dans la liste, je click sur Vincennes du 02/09/2007 = OK
Chemin se terminant par 00245.htm

Dans la liste, je click sur Vincennes du 30/09/2007
Chemin se terminant par 00273.htm

Et la, la page Internet qui s'ouvre est celle du 02/09/2007 !!!!

Si dans la feuille Excel, je clicke sur le lien de Vincennes
du 30/09/2007 c'est la bonne page Web qui s'ouvre !!!!

Ou est le BLEM ???

PS : Ci-joint le fichier Excel

 

[BOISGONTIER]

Re : Liens dans ListBox

Il y a plusieurs fois le même nom de ville.
Sur cette version, l'adresse n'est plus affichée

JB