Format textbox pour accéder au site Internet de mes clients

Bonjour à tous,

Private Sub T22 .......

T22 ici je souhaiterais que le format (https) devant l'adresse, car quand je tape : forum.excel-pratique.com dans ma T22 il m'inscrit bien forum.excel-pratique.com dans ma base de donnée, mais il faut que je rajoute manuellement le https
évidement pour moi se sont les adresses des sites de mes clients.

End Sub

Merci d'avance

Bonjour,

???

Bonjour Joyeux,

Private Sub T22_AfterUpdate()
'T22 = Format(T22.Value, "https\\")
End Sub

j'ai essayé ça mais j'ai toujours le même résultat

voici l'image

Et comme ça ?

Private Sub T22_AfterUpdate()
T22 = "https://" & T22
End Sub

Bonjour Junot, JoyeuxNoel,

Je me permet de proposer cela à tester:

Private Sub T22_AfterUpdate()
ActiveSheet.Hyperlinks.Add Anchor:=Range("T22"), Address:="https://" & Range("T22"), ScreenTip:=Range("T22")
End Sub

A+

Hello Gabin,

De ce que j'ai compris, T22 est juste le nom d'une macro, pas de la cellule cible. Et on serait ici dans une textbox, donc je ne sais pas si ça fonctionnerait.

Bref, je crois que ça se voit : je n'ai pas compris bien grand chose ici...

Private Sub T22 .......

En effet tu as peut être raison...

Visiblement on a les informations au compte goutte !

Merci Fred, j'avais mis les barres oblique à l'envers. mes conneries d'inattention. ça marche.

Gabin je vais essayer votre macro.

Junot,

J'ai fait une erreur.

voici le nouveau code qui devrait fonctionner (Si on parle bien de la cellule T22)

 .Hyperlinks.Add Anchor:=.Range("T22"), Address:="https://" & Range("T22"), ScreenTip:="https://" & Range("T22"), TextToDisplay:=Format(Range("T22"), Text)

Gabin37 a écrit :

voici le nouveau code qui devrait fonctionner (Si on parle bien de la cellule T22)

Je crois qu'on ne saura jamais

Je crois qu'on ne saura jamais

Le sujet est résolu... disons que c'est le principale

Alors pour vous répondre,

la T22 c'est une textbox qui est dans un userform (j'en ai 25). Mes textbox vont écrire dans un onglet qui est ma base de donnée.

Et voilà cela vous va comme réponse. j'ai donc pris ta macro Fred.... et merci

Bonne journée à tous les deux

Bonjour, à tous,

Private Sub T17_AfterUpdate()
T17 = "mailto:" & T17
End Sub

Fred et Gabin, est ce la même solution pour ma T17 , adresse mail ?

Bonjour,

Si tu demandes, j'imagine que c'est parce que cela ne fonctionne pas, non ?

À un moment donné, ce que tu souhaites obtenir et ce que tu as mis en place est tellement abstrait que je ne vois pas trop comment te répondre ...

Gabin est medium, je le laisse essayer.

Sinon, fournis un exemple représentatif ...

Fred,

Hier j'ai demandé le format de ma T22 pour Internet aujourd'hui je vous demande pour ma Textbox 17 le format pour l'adresse mail de mes clients.

du genre avoir dans ma base de donnée exemple (mailto:junot.orange.fr) pour que je puisse cliquer dessus et envoyer ce que je veux.

Bonjour JoyeuxNoel, merci de venter mes talents.. 🔮

Bonjour Junot,

Donc si je comprend bien on parle d'un texte saisie dans un TextBox et non une cellule ? (Ce qui n'avais pas été mentionné au début...)

Alors à tester dans le textbox:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ThisWorkbook.FollowHyperlink "mailto:" & Me.TextBox1.Text
End Sub

Un double clique sur le textbox ouvrira le lien hypertexte de messagerie

un simple clique permet de modifier le textbox.

A+

Junot a écrit :

Fred,

Hier j'ai demandé le format de ma T22 pour Internet aujourd'hui je vous demande pour ma Textbox 17 le format pour l'adresse mail de mes clients.

du genre avoir dans ma base de donnée exemple (mailto:junot.orange.fr) pour que je puisse cliquer dessus et envoyer ce que je veux.

On en est au 17ème message et on te demande encore à chaque post si on a bien compris ce que tu veux. Soit on n'est pas finis, soit quelque chose n'est pas clair. J'allais te proposer la même chose que Gabin, pensant également que tu voulais agir dans le textbox. Puis j'ai eu l'impression que tu veux pouvoir suivre le lien depuis ta base de données en fait...

bonjour Gabin,

le double clic et le simple ne fonctionne pas. ci dessous ce que j'ai dans ma base de données col L

Re,

le double clic et le simple ne fonctionne pas.

C'est à dire ? message d'erreur ? mauvais lien ouvert ? rien ne se passe ?

Reprenons déja pour le site internet, tu avais marqué le sujet comme résolu donc tu avais réussis a faire fonctionner le lien hypertexte pour l'adresse internet ?

Comment ouvres tu le liens ? en cliquant sur le Textbox ou directement sur Excel dans l'onglet base de données ?