Liens hypertexte dans LISTBOX

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai fais un fichier avec une liste de ville dans la colonne A et une liste de liens correspondant dans une colonne B.

J'ai fais comme une barre de recherche avec une liste... quand je tape le début de la ville voulu... cela me trouve le lien correspondant dans la listbox... seulement le liens n'est pas cliquable... pouvez vous m’aider car je n'y arrive pas

Voici mon code actuel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub TextBox1_Change() Application.ScreenUpdating = False Range("A3:A1453").Interior.ColorIndex = 2 ListBox1.Clear If TextBox1 <> "" Then For ligne = 3 To 1453 If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then Cells(ligne, 1).Interior.ColorIndex = 43 ListBox1.AddItem Cells(ligne, 2) End If Next End If End Sub

Bonjour,
En supposant que la colonne D d'une liste de données contienne les liens hypertextes
Voici une exemple qui charge le lien en cliquant sur un des éléments de la liste déroulante
Le contrôle Combox se nomme ComboBox1, la liste est alimentée par la propriété RowSource et la variable objet RngData déclarée en tête de module fait référence à la plage de cellules A2:E6
Code de la procédure événementielle
Code:

1 2 3 4 5 6 Private Sub ComboBox1_Click() Dim Link As String, CurrentRecord As Long CurrentRecord = Me.ComboBox1.ListIndex + 1 Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien ThisWorkbook.FollowHyperlink Link ' Charge le lien End Sub

10/04/2017, 08h41
yoyo77yo

Je suis désolé je suis une bille en VBA et je t'avoue que je n'arrive pas à l’adapter à mon code... puis je avoir de l'aide STP
10/04/2017, 09h25
Philippe Tulliez

Bonjour,
Je ne vois pas dans quelle mesure je pourrais apporter plus d'aide que celle que j'ai déjà donné.
Si tu as pu encoder la procédure événementielle que tu as publiée en ouvrant cette discussion, il me semble que tu dois pouvoir faire un copier/coller de la procédure que je propose en l'adaptant à ton besoin, c'est à dire corriger le numéro de la colonne où se trouve le lien hypertexte, la propriété RowSource, etc.

C'est ce que j'ai fait mais cela me donne une erreur sur :
Code:

1 2 Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien
pour l'adapter j'ai fait cela :
Code:

1 2 3 4 5 6 7 Private Sub ListBox1_Click() Dim Link As String, CurrentRecord As Long CurrentRecord = Me.ListBox1.ListIndex + 1 Link = rngData.Cells(CurrentRecord, 2).Hyperlinks(1).Address ' Adresse du lien ThisWorkbook.FollowHyperlink Link ' Charge le lien End Sub
Mais cela ne fonctionne pas erreur sur l'objet : Link = rngData.Cells(CurrentRecord, 2).Hyperlinks(1).Address ' Adresse du lien

Je suis désolé je suis vraiment nul... mais j'en est tellement besoin pour le boulot...

10/04/2017, 12h08
Philippe Tulliez

Bonjour,
Tu dis avoir une erreur mais quelle erreur (n° de l'erreur et son texte)
Quel est l'adresse de la variable objet rngData ?
10/04/2017, 12h46
yoyo77yo

Erreur d’exécution 424 objet requis

J'ai mis mon fichier en pièce jointe...

Je suis sincèrement désolé je ne sais faire que du rafistolage en VBA et je l'utilise que rarement...

Je sais même pas quoi te répondre pour le RGNDATA...:(:(:(:(

je te remercie encore de ta compréhension
10/04/2017, 14h47
Philippe Tulliez

Bonjour,
Y a-t-il réellement un lien hypertexte valide dans la cellule référencée par cette ligne de code ?

Code:

rngData.Cells(CurrentRecord, 4)

Il faudrait s'en assurer en cliquant sur cette cellule.
10/04/2017, 14h49
yoyo77yo

1 pièce(s) jointe(s)

Oui il y en a dans la colonne B donc normalement c'est bon... peux tu regarder le fichier EXCEL que j'ai mi au debut de mon post STP ... merci:zoubi::zoubi:

Bonjour,
Voici l'ensemble du code.
Le UserForm contient deux contrôles, un ComboBox nommé ComboBox1 et un ListBox nommé ListBox1
J'espère que le fait d'avoir deux contrôles sera plus clair

Pour l'exemple, les données commencent en cellule A1 de la feuille nommée BD dont la propriété CodeName est shtDb et la première ligne contient les étiquettes de colonnes.
Les liens sont dans la colonne D (4ème colonne) et ont été insérés par Clic droit sur la cellule et sélection de Lien hypertexte

En tête de module
Code:

1 2 Option Explicit Dim rng As Range, rngData As Range
Code de la procédure d'initialisation du UserForm
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub UserForm_Initialize() ' Initialisation des variables objets Set rng = shtDb.Range("A1").CurrentRegion With rng Set rngData = .Offset(1).Resize(.Rows.Count - 1) End With ' Initialisation des propriétés CombOBox With Me.ComboBox1 .RowSource = rngData.Address(external:=True) .ColumnHeads = True .ColumnCount = rngData.Columns.Count End With ' Initialisation des propriétés ListBox With Me.ListBox1 .RowSource = rngData.Address(external:=True) .ColumnHeads = True .ColumnCount = rngData.Columns.Count End With End Sub
La ligne 3 de cette procédure utilise le CodeName de la feuille.
Elle peut être remplacée par

Code:

Set rng = ThisWorkbook.Worksheets("BD").Range("A1").CurrentRegion

Code de la procédure du Click sur ListBox
Code:

1 2 3 4 5 6 Private Sub ListBox1_Click() Dim Link As String, CurrentRecord As Long CurrentRecord = Me.ListBox1.ListIndex + 1 Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien ThisWorkbook.FollowHyperlink Link ' Charge le lien End Sub
Code de la procédure du Click sur ComboBox
Code:

1 2 3 4 5 6 Private Sub ComboBox1_Click() Dim Link As String, CurrentRecord As Long CurrentRecord = Me.ComboBox1.ListIndex + 1 Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien ThisWorkbook.FollowHyperlink Link ' Charge le lien End Sub

11/04/2017, 13h06
yoyo77yo

Et bien en faisant exactement comme tu me dis.. cela me donne bien un joli userform mais quand je clique sur le liens... ça me renvoie sur "erreur d'execution '424': Objet requit et quand on clique sur débogage... il nous renvoie sur la fameuse ligne :

Code:

Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien

J'avoue je comprend pas pourquoi. et je viens de constater que ce soit pour la listbox ou le combobox ... c'est sur la même ligne que l'erreur se pose

Je viens de réessayer dans tout les sens je n'y arrive pas
11/04/2017, 14h27
yoyo77yo

1 pièce(s) jointe(s)

Je viens de trouver quelque chose qui me convient en fouillant sur le forum mais je n'arrive pas à l’adapter à ma situation... je souhaite que lorsque je fais une recherche dans la case textbox1 ça me remonte toutes les villes et les liens correspondants et la page correspondante dans la listbox1 et que quand on clique sur le liens de la ligne voulu ca ouvre mon lien : je met le fichier en PJ regardez dans le code vba il y a le userform... si c'est possible d'avoir un peu d'aide svp
11/04/2017, 16h41
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,

Citation:

Je viens de réessayer dans tout les sens je n'y arrive pas

Voici le fichier de démonstration avec les procédures que j'ai publiées plus haut
12/04/2017, 07h19
yoyo77yo

1 pièce(s) jointe(s)

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Voici le fichier de démonstration avec les procédures que j'ai publiées plus haut

Alors jusque là j’ai réussi... j'ai mis un nouveau fichier en ligne ou ça fait la même chose... mais ce que je souhaite c'est que ma barre de recherche textbox 1 : quand je la rempli que ça puisse afficher au fur et a mesure que je la rempli ...la liste des ville et des liens dans la listbox1...

Exemple je tape "AB" dans la textbox... je souhaite que cela m'affiche dans la listbox la liste des villes qui contienne "AB" ainsi que le liens qui correspond... comme ca je clique sur le liens qui correspond a la ville...

Bonjour,
Le code que j'ai proposé se base sur une liste complète et utilise la propriété RowSource pour charger la table de données or vous comme la liste des données présentes dans le ListBox est partielle vous utiliser la méthode AddItem.
Comme il faut une relation entre l'élément sélectionné dans le ListBox et l'enregistrement lui correspondant dans la table des données, il y a lieu d'ajouter dans la liste le n° d'enregietrement comme par exemple dans la procédure ci-dessous que j'ai repris d'un de mes classeurs de démonstration où j'ai deux listes lstFemale et lstMale et où ConditionValue est égal à la lettre F (donc il y a éclatement dans deux listes distinctes selon le sexe)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 With rng_Data For r = 1 To .Rows.Count ' Splite les données vers lstFemale ou lstMale If .Cells(r, ColumnNumber) = ConditionValue Then Me.lstFemale.AddItem r ' N° d'enregistrement For c = 1 To .Columns.Count: lstFemale.List(lstFemale.ListCount - 1, c) = .Cells(r, c): Next Else Me.lstMale.AddItem r ' N° d'enregistrement For c = 1 To .Columns.Count lstMale.List(lstMale.ListCount - 1, c) = .Cells(r, c) Next End If Next r End With
Lors de la procédure événementielle, il y a donc lieu de récupérer le n° d'enregistrement de l'élément sélectionné dans la liste
Exemple

Code:

CurrentRecord = me.lstFemale.List(.ListIndex)

et ensuite tu reprends le code que j'ai publié plus haut
Soit en utilisant la liste nommée ListBox
Code:

1 2 3 4 5 6 Private Sub ListBox1_Click() Dim Link As String, CurrentRecord As Long CurrentRecord = CurrentRecord = me.ListBox1.List(.ListIndex) Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien ThisWorkbook.FollowHyperlink Link ' Charge le lien End Sub
Ne pas oublier de modifier le nom de l'objet lstFemale par ListBox1 et ConditionValue doit correspondre à votre recherche (valeur du TextBox

12/04/2017, 15h00
yoyo77yo

Bon... et bien je suis vraiment nul... est ce que je peux te demander de me l'adapter à mon fichier car je suis une bille ... ca fait 3 jours que je passe dessus et étant en production j'en ai terriblement besoin... je te remercie sincèrement pour tes explications et je vais essayer d'apprendre par rapport a ce que tu ma enseigné mais là... j'y arrive pas...:(:(:(:(:(:(:(:(:(:(

Je te remercie énormément ...
12/04/2017, 21h02
Philippe Tulliez

Bonjour,

Citation:

est ce que je peux te demander de me l'adapter à mon fichier car je suis une bille

Non, je ne vais pas l'adapter à ton cas. C'est trop simple de dire que tu es "une bille"

Citation:

ca fait 3 jours que je passe dessus et étant en production j'en ai terriblement besoin

Cela veut dire que si je fais le travail à ta place gratuitement, c'est toi qui en tire un profit. Ce n'est pas l'esprit d'un forum d'entraide
Tu dois faire un minimum d'effort, et consacrer du temps pour réaliser ce que ton patron te demande de faire.
Un certain nombre de membres de ce forum vive de développement et de formation. Faire le travail à la place de certain, revient à couper la branche sur laquelle on est assis.
Soit tu fais des efforts soit tu demandes à un sous-traitant de le faire à ta place.