Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ajouter un lien permanent dans un Textbox de Formulaire

ajouter un lien permanent dans un Textbox de Formulaire

13 réponses
Avatar
sab
Bonjour,

Comment peut on avoir en permanence le debut d'une URL dans un Textbox?

Par exemple dans le Texbox1 avoir a l'ouverture du formulaire:
http://wwww.xxxxxxx

Je pense qu'il faut mettre a l'ouverture du formulaire dans
l'evenement Initialize quelque chose comme:
Txtbox1.Value = hyperlink quelquechose!!!!!!

Merci par avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
1 2
Avatar
sab
ctac a écrit :
Bonjour,

Private Sub CommandButton1_Click()
[A1].Formula = "=HYPERLINK(""" & TextBox1 & """,""LeLienQuiVaBien"")"
Unload Me
End Sub

ctac





OOOUUUIIIIIIIIIIII!!
Un grand merci cela fonctionne parfaitement!!!
Enfin je desespérais............
merci encore!!!

Si par hasard tu repassais par ici peut on rajouter un "text to display
dans cette formule? c'est un plus mais sinon cela me va tres bien!!
Avatar
LSteph
Si par hasard tu repassais par ici pose correctement ta question.

Cela ajoute le lien dans une cellule de feuille en l'occurence [a1]
et non pas dans un textbox de formulaire
:-((




sab a écrit :
ctac a écrit :
Bonjour,

Private Sub CommandButton1_Click()
[A1].Formula = "=HYPERLINK(""" & TextBox1 & """,""LeLienQuiVaBien"")"
Unload Me
End Sub

ctac





OOOUUUIIIIIIIIIIII!!
Un grand merci cela fonctionne parfaitement!!!
Enfin je desespérais............
merci encore!!!

Si par hasard tu repassais par ici peut on rajouter un "text to display
dans cette formule? c'est un plus mais sinon cela me va tres bien!!




Avatar
sab
Bonsoir,

Apres essai complet "lelienquivabien" est le text to display !
J'ai donc tout ce que je desirais...

Encore merci CTAC




sab a écrit :
ctac a écrit :
Bonjour,

Private Sub CommandButton1_Click()
[A1].Formula = "=HYPERLINK(""" & TextBox1 & """,""LeLienQuiVaBien"")"
Unload Me
End Sub

ctac





OOOUUUIIIIIIIIIIII!!
Un grand merci cela fonctionne parfaitement!!!
Enfin je desespérais............
merci encore!!!

Si par hasard tu repassais par ici peut on rajouter un "text to display dans
cette formule? c'est un plus mais sinon cela me va tres bien!!


1 2