Courriel en VB

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

bonjour

Tu peux essayer

Code:

---

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

Citation:

---

Envoyé par SilkyRoad

bonjour

Tu peux essayer

Code:

---

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:

---

TextToDisplay:="adresse@fai.fr"

---

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

bonjour Ptitemar

Citation:

---

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

Salut à tous,

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


Michel (Casstorr)