Discussion :

[yoyo77yo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[yoyo77yo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pour l'adapter j'ai fait cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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 ?