Discussion :

[JulienFBR]

Bonjour à toutes et à tous,

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



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 :

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

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

[Matthou]

Tu as essayé tout simplement de faire :

Code :

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

1
2
 
TextBox1.Value = Nom_Lien

?

---

Le Tuc

[Philippe PONS]

Bonjour,


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

Code :

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

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,

[JulienFBR]

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

Merci beaucoup,

CDLT
JFA

Superbe solution Philippe,

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

CDLT
JFA

[Philippe PONS]

You're welcome, JulienFBR!

[Matthou]

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

---

Le Tuc