La saisie sous format d'une adresse mail dans un textbox

Bonjour le forum,

en fait je souhaiterai savoir comment faire pour mettre dans un textbox par défaut (par exemple "@yahoo.fr"), l'utilisateur n'a qu'a renseigné la première partie de l'adresse mail au lieu de rentrer cette partie + @yahoo.fr.

Merci d'avance

Bonjour

Peut-être comme ça

Private Sub TextBox1_AfterUpdate()
  If InStr(1, Me.TextBox1, "@yahoo.fr") = 0 Then
    Me.TextBox1 = Me.TextBox1 & "@yahoo.fr"
  End If
End Sub

A+

Bonjour BrunoM45,

Merci beaucoup pour ta réponse, en fait je souhaiterai que le @yahoo.fr soit visible à l'utilisateur.

Merci d'avance

Re,

A part le mettre dans un Label, je ne pense pas que ce soit possible.

Sauf peut-être par bidouillage et ça je ne fais pas