remplissage lien hypertexte

[woofette]

Salut tout le monde,

J'ai réalisé une macro qui lance un formulaire pour pouvoir remplir un tableau. Une colonne correspond à l'adresse d'un site web. J'ai donc besoin que l'adresse tappée dans le textbox par l'utilisateur soit "cliquable" après validation du formulaire.

J'ai donc tappé le code suivant dans mon éditeur :

Private Sub TextBox10_Change()
Dim url As String
url = Me.TextBox10.Text

With Worksheets("Partenaires")
.Hyperlinks.Add .Range("J6500").End(xlUp).Offset(0, 0), url
End With

End Sub

Cependant, ce code ne créé par réellement un lien hypertexte vers le lien souhaité mais juste un lien qui ne contient pas de destination.

Comment remplir le lien hypertexte avec la valeur du texbox10 ?

Merci pour votre aide

 

[Pierrot93]

Re : remplissage lien hypertexte

Bonjour,

J'ai donc besoin que l'adresse tappée dans le textbox par l'utilisateur soit "cliquable" après validation du formulaire.

si par formulaire tu entends userform, et pour que le lien se résolve après un click sur un bouton, regarde le code ci-dessous si il peut t'aider, l'adresse dans le "textbox" doit bien sur être valide :

Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink TextBox1.Value
End Sub

bonne journée
@+

 

[woofette]

Re : remplissage lien hypertexte

Oui j'entends bien un userform, J'ai inséré votre ligne de code dans le code qui est effectué lorsque l'utilisateur clique sur le bouton "valider" du formulaire (remplissage du tableau avec les valeurs des textbox)

Mais cela ne fonctionne pas.

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

Mais cela ne fonctionne pas.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu... chez moi fonctionne très bien, une adresse valide de page internet dans la "textbox"....

 

[woofette]

Re : remplissage lien hypertexte

J'obtiens un message d'erreur et l'outil de débuggage s'ouvre directement.

En fait je ne vois pas trop comment insérer ton code dans mon module..

 

[woofette]

Re : remplissage lien hypertexte

En fait comme j'ai mis ton code au click sur le textbox ça m'affiche un message d'erreur dès la première lettre écrite en précisant que le lien n'est pas valide il me semble. Ca parait logique mais comment y remédier ?

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

peut être mettre le code sur l'événement "exit" du textbox....

 

[woofette]

Re : remplissage lien hypertexte

J'obtiens le message d'erreur : nom du fichier ou de la classe introuvable..

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

dans le module de l'usf, nom du textbox à adapter :

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then ThisWorkbook.FollowHyperlink TextBox1.Value
End Sub

 

[woofette]

Re : remplissage lien hypertexte

Toujours un problème de classe.. Je pense que c'est à cause du "thisworkbook"

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

"thisworkbook" représente le classeur dans lequel est exécuté le code, si autre classeur, il faut le préciser :

Workbooks("nomclasseur.xls")

 

[woofette]

Re : remplissage lien hypertexte

Non il s'agit bien du bon classeur, je ne vois pas d'où l'erreur peut venir alors...

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

tu as modifié partout le nom du textbox ????

 

[woofette]

Re : remplissage lien hypertexte

J'ai bien mis Textbox6 partout et toujours ce problème de classe lorsque je valide la macro

 

[Pierrot93]

Re : remplissage lien hypertexte

Re,

mets un tout petit fichier en pièce jointe représentant uniquement le problème posé....