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