créer un lien hypertexte dans une textbox

[flygc]

bonjour

Je n'arrive pas à créer un lien dans une textbox.
Je suis débutant et je voudrais faire un lien qui est renvoyer d'une autre case.
pour faire plus simple dans les explications :
j'aimerai que la TextBox4 remplisse la case I18 dans ma feuille "Saisie", que ma TextBox5 serait un visuel de la case I16:I17, et que ma TextBox6 affiche la case J16:J17

en gros
textbox 5 = I16:I17 (cette case comprend des lien non fixe qui change avec la valeur de I18)
textbox 6 = J16:J17 (cette case comprend des lien non fixe qui change avec la valeur de I18)
I18 = textbox4

j’espère avoir était le plus clair possible

Merci d'avance

flygc

 

[Calvus]

Bonsoir Flygc et bienvenue sur le forum,

Voici ton fichier en retour, un peu nettoyé...
Les modifications sont ici : Private Sub UserForm_Initialize()

Private Sub UserForm_Initialize()
 
With Sheets("Saisie")
    TextBox4 = .Range("I18").Value
    TextBox5 = .Range("I16").Value
    TextBox6 = .Range("J16").Value
End With
End Sub

Bonnes fêtes.

Edit : j'ai oublié le fichier, le voici

 

[flygc]

Merci beaucoup calvus

J'ai regarder c'est super et effectivement j'ai essayer plein de truc alors mon fichier ne ressemblait plus à rien.🙁
Par contre je n'arrive pas à cliquer dessus pour me renvoyer au lien : faut-il ajouter quelque chose pour mettre un lien sur vba (sur excel il fonctionne pourtant)

Meilleurs vœux et plein de bonnes choses pour cette nouvelle année


Flygc

 

[flygc]

j'ai essayer un code de ce genre mais je n'arrive pas à le placer:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 <> "" Then ActiveWorkbook.FollowHyperlink TextBox5.Value, , True
End Sub

au plaisir de vous lire

 

[Calvus]

Bonjour,

Tu as vu que ce n'est pas simple.

Le bout de code que tu as mis, peut être l'as tu trouvé ici ?

Je te laisse chercher dans ce sens, sinon quelqu'un prendra le relais.

 

[flygc]

bonjour,

Effectivement je cherche avant =) et les petites victoires n'on pas de prix ^^
j'ai réussi à le placer. et ca fonctionne quel merveille ! 🙂
maintenant un seul beug persiste : les liens (textbox5 et textbox6) ne se mettent pas à jour quand j'active ma textbox4 grace au bouton validé.

Private Sub CommandButton3_Click()
With Sheets("Saisie")
.Range("I18").Value = TextBox4.Value
End With
End Sub


Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox6 <> "" Then ActiveWorkbook.FollowHyperlink TextBox6.Value, , True
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 <> "" Then ActiveWorkbook.FollowHyperlink TextBox5.Value, , True
End Sub
🙂

ps : derrière sur la feuille excel les lien se mettent bien à jour mais dans ma userform les lien on un décalage de 1 code scanner