Discussion :

[floflo50100]

Bonjour,
Je voudrais savoir comment trouver le lien hypertext quand je choisi une valeur dans un combobox et le retrancrire dans le textbox1.
J'ai réussis avec le offset mais le Hyperlinks ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Combobox1_Click()
Dim quoi As Variant
Dim trouve As Range
quoi = ComboBox1
With Sheets("feuil1").Range("A2:A65536")
Set trouve = .Find(quoi, lookat:=xlWhole)
If Not trouve Is Nothing Then
TextBox1 = trouve.Offset(0, 0)
 
End If
End With
End Sub

Merci