Discussion :

[Casstorr]

Bonjour à tous,

J'ai besoin de votre aide pour résoudre mon petit problème. Je tape une adresse courriel dans un textbox. L'adresse s'installe en A1. Toutefois, le contenu de A1 ne se met en format courriel. Comment puis-je faire pour la formater en utilisant une ligne VB? L'adresse courriel ne s'installera pas toujours dans la même cellule.

Merci encore de votre aide,

Casstorr

[SilkyRoad]

bonjour

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    With ActiveSheet
        .Range("A1") = TextBox1
        .Hyperlinks.Add .Range("A1"), Address:=TextBox1
    End With
End Sub

michel

[ptitemar]

bonjour

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    With ActiveSheet
        .Range("A1") = TextBox1
        .Hyperlinks.Add .Range("A1"), Address:=TextBox1
    End With
End Sub

michel

tu peux ajouter ce code à la suite de Adress:=TextBox1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextToDisplay:="adresse@fai.fr"

Ce qui te permet de ne pas afficher le "mailto: "dans ta cellule

[SilkyRoad]

bonjour Ptitemar

tu peux ajouter ce code à la suite de Adress:=TextBox1 :

Code :
TextToDisplay:="adresse@fai.fr"
Ce qui te permet de ne pas afficher le "mailto: "dans ta cellule

Quelle version d'Excel utilises tu pour que mailto: s'affiche dans la cellule?


bonne soirée
mmichel

[Casstorr]

Salut à tous,

C'est exactement ce que je voulais, je vous remercie tous de m'avoir aidé!


Michel (Casstorr)