UserForm - Insertion Liens Hypertexte

Bonjour à toutes et à tous,

Petite problématique du jour, le tout expliqué en image.

Pièce jointe 201163

La macro fonctionne presque, mais bug à un moment avec "Erreur d’exécution 438 - Propriété ou méthode non gérée par cet objet".

Voilà le code associé à cette fonction :

Code:

---

1 2 3 4 5 6 7

Private Sub ADD1_Click() 'ADD1 = Bouton "Ajouter Lien" Application.Dialogs(xlDialogInsertHyperlink).Show 'Nom_Lien = textbox associée Nom_Lien.Text = Application.Dialogs(xlDialogInsertHyperlink) DoEvents End Sub

---

J’espère que vous aurez la réponse à mon problème, ou du moins une alternative tout aussi efficace.

Milles merci par avance,

Cordialement.
JFA

Tu as essayé tout simplement de faire :

Code:

---

1 2	TextBox1.Value = Nom_Lien

---

? :lefou::rose:

---

Le Tuc

Bonjour,


peut être en récupérant la valeur dans la cellule

Code:

---

1 2 3 4 5 6 7 8

Private Sub ADD1_Click() 'ADD1 = Bouton "Ajouter Lien" Range("A1").Select Application.Dialogs(xlDialogInsertHyperlink).Show 'Nom_Lien = textbox associée Nom_Lien.Text = Range("A1") DoEvents End Sub

---

Cordialement,

Salut Matthou,

Je ne comprends pas tellement ta suggestion, je me suis sans doutes mal expliqué.


"ADD1" est le bouton qui ouvre la fenêtre "Ajouter lien hypertexte".
"Nom_Lien" correspond à ma TextBox dans laquelle je souhaite voir apparaître le nom du lien hypertexte. Cette TextBox est elle même reliée à une cellule Excel, dans laquelle je souhaite voir apparaître le fameux nom (souligné et bleu avec le lien hypertexte attribué).

J'espère avoir été plus compréhensible :lol:

Merci beaucoup,

CDLT
JFA

Superbe solution Philippe,

Merci beaucoup pour ton partage et ta réactivité ! :D

CDLT
JFA

You're welcome, JulienFBR!

Effectivement je n'avais pas compris le problème Philippe PONS est surement plus expérimenté et comprend mieux les choses :D:D:D
Bonne fin de journée :lefou:

---

Le Tuc