Listbox et lien hypertext !

Version imprimable

27/02/2017, 20h36
JLC16

1 pièce(s) jointe(s)

Listbox et lien hypertext !

Bonjour à tous,

Je suis novice, et heureux d'avoir trouvé votre site et ce forum :D
Je ne maitrise pas bien les termes et fonctions employés dans ce genre de programmation.
Je n'ai pas réussi à trouver de réponse à ma question dans les sujets existants (je n'ai peut-être pas su chercher correctement), alors j'espère ne pas déranger avec un doublon si c'est le cas.

Voilà ma question :
J’ai réussi à faire fonctionner une fonction recherche avec un résultat qui apparait dans une listbox.
Je souhaiterais en plus pouvoir cliquer sur le ou les mots résultat de la recherche ce trouvant dans la listbox et si ils ont des liens hypertexte dans le tableau, pouvoir suivre ce lien à partir de la listbox .

Autrement si ce n'est pas possible, je souhaiterais juste pouvoir atteindre la cellule en cliquant sur le mot (ou ligne) correspondant dans la listbox ! (ceci pour cliquer sur la cellule qui a le lien)
Est-il possible de m'indiquer comment réaliser l'un ou l'autre ou les deux …?

J'espère être arrivé à me faire comprendre. Si ne n'est pas le cas, merci de me le dire, j'essayerai de reformuler.

Merci d'avance pour l'aide que vous allez pouvoir m'apporter.
28/02/2017, 02h09
Invité

Citation:

Envoyé par JLC16

je souhaiterais juste pouvoir atteindre la cellule en cliquant sur le mot (ou ligne) correspondant dans la listbox !

Bonjour :

Un exemple ici : listbox1_click-selectionner-ligne-fichier-excel
Un autre ici : supprimer-ligne-fonction-plusieurs-variables
28/02/2017, 10h07
JLC16

Merci Eric,

J'ai essayé de comprendre et de faire des essais, mais j'ai abandonné, car je dois l'avouer, je ne sais pas ce que je fais vraiment.
Je ne sais pas ou placer les lignes etc..
Donc je ne sais pas non plus si cela pourrais correspondre à mes attentes.

Mon et mes futurs tableaux sont long.
Il va y avoir pour certains mots des liens hypertexts vers des documents .pdf ou vers des sites.
Lorsque le résulat de ma recherche apparait dans la listbox, soit je peux cliquer sur la ligne que je recherche et si il y a un lien hypertext, cela permet de le suivre. Si c'est pas possible, alors le fait de cliquer dans la ligne de la listbox, me permet d'aller sur la cellule correspondante à ma recherche et la je clique pour suivre le lien.
Donc, comme je n'ai pas réussi à modifier mon code, je ne sais pas si les exemples que tu m'a donné peuvent fonctionner.

Je serais vraiment content si tu pouvais m'indiquer plus précisément ce que je dois faire pour que cela fonctionne.

Encore merci pour le temps passé à essayer de m'aider :D

@ bientot
28/02/2017, 10h24
Invité

Citation:

Envoyé par JLC16

Les exemples n'avaient pour but que de montrer comment la sélection des lignes du tableau se faisait en fonction de l'item sélectionné de la Listbox. J'imagine que tu as essayé.
S'agissant d'un sujet sur le forum Macros et VBA Excel, beaucoup s'attendent à voir ton code car ils sont peu nombreux à ouvrir des fichiers mis en ligne pour des raisons de sécurité.

Pour expliquer ton problème, mets en ligne ton code et ajoute des captures d'écran pour plus de compréhension, je pense que tu auras des réponses.
28/02/2017, 10h29
JLC16

Merci Eric,

Je vais le faire dans la journée.
Je ne suis pas habitué aux usages des forums ...
Je vais faire de mon mieux, sachant que ce que j'attend du fonctionnement de ce code sera d'une aide précieuse pour moi et quelques collègues qui font la même chose que moi.

:D

Merci
28/02/2017, 14h05
Invité

Citation:

Envoyé par JLC16

J'ai modifié un peu ton fichier pour y mettre un événement dans ta ListBox. Il faudrait sans doute trier les lignes.

Pièce jointe 249224
28/02/2017, 14h40
JLC16

3 pièce(s) jointe(s)

Avec le code et des captures d'écrans

Voici : vue précédemment le code au format "text" et des captures d'écrans.

Pièce jointe 249268

et

Pièce jointe 249271

Merci d'avance pour ce que vous pourrez m'indiquer

Jean-Luc
28/02/2017, 17h09
JLC16

Merci ERIC :D

Je n'avais pas remarqué ta réponse quand j'ai ajouté le code et les images.
Je n'ai pas eu le temps de regarder dans le détail, (je vais le faire ce soir), mais ce que je viens de voir semble fonctionner.
Lorsque je clic sur la ligne, je vais sur la cellule correspondante... c'est SUPER COOL ... MERCI ENCORE.
J'imagine que pour le lien directement dans la listbox c'est trop compliqué...
Je vérifie comme il faut ce soir et si OK, je viendrais clôturer cette question.

Encore merci pour le boulot, c'est vraiment bien :D

Jean-Luc
28/02/2017, 17h26
Invité

Citation:

Envoyé par JLC16

J'imagine que pour le lien directement dans la listbox c'est trop compliqué...

Je n'ai pas regardé et je n'aurais pas opté pour la même solution que toi. J'aurais réalisé un Userform avec ton Textbox et ta ListBox pour naviguer plus facilement dans les différents onglets. J'aurais essayé de mettre le lien comme un nouvel enregistrement dans la ListBox quitte à créer une autre ListBox uniquement pour ces liens.

Sinon, lorsque tu veux mettre du code en ligne, tu cliques sur l'icone # dans le menu et tu colles ton code.
28/02/2017, 17h59
JLC16

Eric,

J'imagine que je n'ai pas choisi la meilleur solution. La réalité c'est que je ne connais absolument rien à VBA, et autre programmation sur Excel.
J'ai un besoin et en faisant quelques recherches, avec beaucoup d'essais, je suis arrivé à faire ce que je t'ai présenté.
Avec ce que tu viens de me donner, je devrais arriver à obtenir à peu près ce que je veux.
Je trouve tout ça super intéressant, mais je termine une formation bientôt avec des examens fin juin et je n'ai malheureusement pas de temps à y consacré ...
C'est pour ça, merci pour l'aide.
Je regarderais quand même ce que c'est "userform" :D

Jean-Luc
28/02/2017, 19h39
Invité

Citation:

Envoyé par JLC16

Je regarderais quand même ce que c'est "userform"

Pour un premier essai, ce n'est déjà pas mal.

Tu as les exemples dans les liens de mon premier message.
01/03/2017, 13h57
JLC16

Bonjour,
Le code proposé par Eric fonctionne bien et me convient.

Merci Eric
Merci au forum...

Je clôture ce post.

:zoubi:
08/03/2017, 22h43
JLC16

Petit Bug !!!

Bonjour les gens du Forum...
Bonjour Eric :-)

Je ne voulais pas déranger, mais j'ai un bug avec le code d'Eric.
En fait, dans la colonne A, si j'ai le même nom sur des lignes différentes et bien au moment de la recherche, les lignes sont bien trouvées et elles apparaissent dans la listebox, mais lorsque je les sélectionne ligne par ligne, cela reste figé sur la même case du tableau !
Si j'ajoute un signe de différentiation, alors là ça marche.
Il y a certainement un petit truc à modifier, mais je ne sais pas quoi ?

Merci d'avance pour l'aide.
Si il y a besoin de mes tableaux pour "montrer" le problème, merci de me le dire et je les mettrais (comme le code d'Eric est déjà présent sur le forum...)

@ bientôt

Jean-Luc :D

Citation:

Envoyé par JLC16

Bonjour,

Une solution consisterait à identifier le numéro de ligne dans une colonne supplémentaire de la ListBox et de s'en servir pour se positionner sur le tableau après sélection.
Il faut donc modifier les propriétés de la ListBox pour porter le nombre de colonnes à 4 et modifier le code comme ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub ListBox1_Click()
 
Dim LigneEnCours As Long
Dim NumeroListe As Long
 
     LigneEnCours = ListBox1.List(ListBox1.ListIndex, 3)
     Range("A20:A333").Interior.ColorIndex = 2
     With Cells(LigneEnCours, 1)
          .Interior.ColorIndex = 43
          .Select
     End With
 
End Sub
 
Private Sub TextBox1_Change()
 
 Dim DerniereLigne As Long
 Dim LigneEnCours As Long
 Dim NumeroListe As Long
 
    Application.ScreenUpdating = False
 
    Range("A20:A333").Interior.ColorIndex = 2
    ListBox1.Clear
    NumeroListe = 0
 
    If TextBox1 <> "" Then
       For LigneEnCours = 20 To 333
 
          If Cells(LigneEnCours, 1) Like "*" & TextBox1 & "*" Then
             Cells(LigneEnCours, 1).Interior.ColorIndex = 43
             ListBox1.AddItem Cells(LigneEnCours, 1)
             ListBox1.List(NumeroListe, 1) = Cells(LigneEnCours, 2)
             ListBox1.List(NumeroListe, 2) = Cells(LigneEnCours, 3)
             ListBox1.List(NumeroListe, 3) = LigneEnCours  ' Ligne à ajouter
 
             NumeroListe = NumeroListe + 1
 
          End If
        Next
    End If
 
    Application.ScreenUpdating = True
 
End Sub

09/03/2017, 09h28
JLC16

Merci ....

Bonjour,

Encore merci Eric, c'est impec ... :)
ça fonctionne.

Bonne fin de journée

Bonne continuation

@ une prochaine fois

Jean-Luc