Inserer un lien Hypertext dans le Textbox d'un Userform
2 réponses
sab
Bonjour,
Je veux simplement que dans l'un des Textbox (le textbox3) du
Formulaire (Useform) je puisse copier ou taper des liens du style :
http://www.xxxxxxxxx.
Aucune obligation qu'il soit "cliquable" dans le formulaire puisque ce
formulaire sert uniquement pour la saisie.
EN REVANCHE des que je decharge (et ferme) le formulaire sur ma feuille
excel il faut que ce lien qui etait dans le textbox3 ne soit plus du
texte brut mais un lien Hypertext cliquable dans la feuille.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Francois L
sab a écrit :
Bonjour,
Transférer dans E5 de Feuil1 le contenu du textbox1 en url cliquable...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim url As String url = Me.TextBox1.Text With Sheets("feuil1")
.Hyperlinks.Add .Range("E5"), url End With End Sub
-- François L
Bonjour,
Je veux simplement que dans l'un des Textbox (le textbox3) du Formulaire (Useform) je puisse copier ou taper des liens du style : http://www.xxxxxxxxx. Aucune obligation qu'il soit "cliquable" dans le formulaire puisque ce formulaire sert uniquement pour la saisie. EN REVANCHE des que je decharge (et ferme) le formulaire sur ma feuille excel il faut que ce lien qui etait dans le textbox3 ne soit plus du texte brut mais un lien Hypertext cliquable dans la feuille.
Par avance un GRAND merci...
sab a écrit :
Bonjour,
Transférer dans E5 de Feuil1 le contenu du textbox1 en url cliquable...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim url As String
url = Me.TextBox1.Text
With Sheets("feuil1")
.Hyperlinks.Add .Range("E5"), url
End With
End Sub
--
François L
Bonjour,
Je veux simplement que dans l'un des Textbox (le textbox3) du Formulaire
(Useform) je puisse copier ou taper des liens du style :
http://www.xxxxxxxxx.
Aucune obligation qu'il soit "cliquable" dans le formulaire puisque ce
formulaire sert uniquement pour la saisie.
EN REVANCHE des que je decharge (et ferme) le formulaire sur ma feuille
excel il faut que ce lien qui etait dans le textbox3 ne soit plus du
texte brut mais un lien Hypertext cliquable dans la feuille.
Transférer dans E5 de Feuil1 le contenu du textbox1 en url cliquable...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim url As String url = Me.TextBox1.Text With Sheets("feuil1")
.Hyperlinks.Add .Range("E5"), url End With End Sub
-- François L
Bonjour,
Je veux simplement que dans l'un des Textbox (le textbox3) du Formulaire (Useform) je puisse copier ou taper des liens du style : http://www.xxxxxxxxx. Aucune obligation qu'il soit "cliquable" dans le formulaire puisque ce formulaire sert uniquement pour la saisie. EN REVANCHE des que je decharge (et ferme) le formulaire sur ma feuille excel il faut que ce lien qui etait dans le textbox3 ne soit plus du texte brut mais un lien Hypertext cliquable dans la feuille.
Par avance un GRAND merci...
sab
Merci je vais essayer cela des demain!!
Francois L a écrit :
sab a écrit :
Bonjour,
Transférer dans E5 de Feuil1 le contenu du textbox1 en url cliquable...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim url As String url = Me.TextBox1.Text With Sheets("feuil1")
.Hyperlinks.Add .Range("E5"), url End With End Sub
Merci je vais essayer cela des demain!!
Francois L a écrit :
sab a écrit :
Bonjour,
Transférer dans E5 de Feuil1 le contenu du textbox1 en url cliquable...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim url As String
url = Me.TextBox1.Text
With Sheets("feuil1")
.Hyperlinks.Add .Range("E5"), url
End With
End Sub