Masque de saisie adresse mail

Bonjour le forum,

J'ai une petite question...

J'ai un userform me permettant de rentrer des données dans plusieurs feuilles.

Et dans mon userform, je suis amené à rentrer des adresses mail.

Le domaine de l'adresse mail est le même pour tout le monde. Ex : @singlinglin.fr

Existe t-il un masque de saisie permettant de "pré-enregistrer" le @singlinglin.fr dans ma textbox afin que je n'ai plus que le nom et prénom à saisir ?

C'est pas très clair...

Merci a vous,

Steven

Bonsoir Steven, le forum,

Un exemple avec le fichier ci-joint, à adapter à tes besoins. Sur le formulaire, entrer le nom, puis le prénom, et valider.

Cordialement,

André

Bonjour,

Voilà le code dont je me sers.

Dans Caption du Label1 : @

Private Sub TextBox1_Change()        ' Mail
    TextBox1.Text = LCase(TextBox1)
    Dim S As String
    S = Me.TextBox1.Value
    If InStr(1, S, "@") > 0 And InStr(1, S, ".") Then
        Me.TextBox1.ForeColor = rgb(0, 0, 255)
        Me.TextBox1.Font.Underline = True
        Label1.Visible = True        ' Affiche le label
    Else        ' Sinon
        Me.TextBox1.ForeColor = &H80000008
        Me.TextBox1.Font.Underline = False
        Label1.Visible = False        ' Masque le label
    End If        ' Fin de la condition
End Sub
'**** Correspond au format de la TextBox1 "Adresse @Mail"  ****
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)        ' Mail
    Dim S As String
    S = Me.TextBox1.Value
    If InStr(1, S, "@") > 0 And InStr(1, S, ".") > 0 Then
        ThisWorkbook.FollowHyperlink "mailto: " & Me.TextBox1.Value
    End If        ' Fin de la condition
End Sub
'**** Correspond à la validation de la TextBox1 "Adresse @Mail"  ***
Private Sub TextBox1_AfterUpdate()
    If TextBox1 <> Empty Then
        If InStr(1, TextBox1, "@") = 0 Then
            Reponse = MsgBox("l'adresse E.mail doit contenir un @ !", vbExclamation + vbOKOnly, "Merçi")
            TextBox1 = Empty
            TextBox1.SetFocus
            Exit Sub
        End If
    End If
End Sub

Cordialement

Bonjour à vous,

Tout d'abord merci d'avoir pris le temps de m'aider et de me répondre.

André ton astuce fonctionne parfaitement mais malheureusement ce n'est pas exactement ce que je recherche. Je vais tout de même l'enregistrer, je sais que ça me servira par la suite. Encore merci.

Le troll du 27, merci pour ta réponse. Encore une fois ce n'est pas ce que je recherche, mais tout de même un grand merci.

Ci-joint le userform que j'utilise. J'ai fait un petit "montage" pour illustrer ce que je voudrai réussir à faire. Que le @singlinglin.fr soit par défaut dans mon textbox.

Merci à tous pour votre aide,

Steven

salut

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

cordialement

Merci beaucoup troll du 27, ça fonctionne parfaitement.

Mais je viens de trouver une astuce, beaucoup plus simple, sans code...

Il fallait juste remplir la case "value" des propriétés de la textbox.

Encore merci à vous,

Steven