créer un lien hypertexte dans une textbox

flygc

XLDnaute Nouveau
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
 

Pièces jointes

  • demande interne.JPG
    demande interne.JPG
    85.3 KB · Affichages: 37
  • gestion des stocks 2018 essais vba 5.xlsm
    394.5 KB · Affichages: 39
  • demande interne1.JPG
    demande interne1.JPG
    57.7 KB · Affichages: 48

Calvus

XLDnaute Barbatruc
Bonsoir Flygc et bienvenue sur le forum,

Voici ton fichier en retour, un peu nettoyé...
Les modifications sont ici : Private Sub UserForm_Initialize()
VB:
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
 

Pièces jointes

  • gestion des stocks 2018 essais vba 5.xlsm
    383.6 KB · Affichages: 80
Dernière édition:

flygc

XLDnaute Nouveau
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

XLDnaute Nouveau
j'ai essayer un code de ce genre mais je n'arrive pas à le placer:
Code:
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 <> "" Then ActiveWorkbook.FollowHyperlink TextBox5.Value, , True
End Sub

au plaisir de vous lire
 

flygc

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla