Bonjour,
Je suis indéniablement bloqué à une étape de mon projet VBA.
J'ai un fichier qui me permet d'ajouter un lien hypertexte en passant par un userform.
Seulement une fois un lien ajouter je voudrais le modifier.
Le problème est que quand je selectionne dans la combobox une cellule, je voudrais qu'il récupère le lien de cette celulle et qu'il l'indique dans la TextBox.
J'ai écrit un code mais il en fonctionne pas et je ne voit pas pourquoi !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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.Hyperlinks.Address(0, 0)
 
End If
End With
End Sub
Merci d'avance