XL 2010 VBA | Ecriture prédictive adresse email

ralph45

XLDnaute Impliqué
Bonjour @tou(te)s,

Pourriez-vous me filer un coup de main sur le petit formulaire dans le tableau joint ?
Vu que 70-80% des adresses e-mail se composent du "prénom.nom@nom_domaine", je désirerai que la textBox3 se génère automatiquement :

tout en minuscules (OK, c'est fait)
sans accent (OK, c'est fait, mais pas pour ce fichier exemple)
remplace (Substitute) les tirets par rien (""-"" --> """)
choix du nom de domaine dans une liste déroulante (OK, c'est fait, mais pas pour ce fichier exemple).

Donc pour résumer, c'est le point 3 où je bloque. Certainement sur une connerie de WorkFunction, mais je bloque.:confused:

Merci de votre aide ! Et bonne journée ! ;)
 

Pièces jointes

  • VBA_SUBSTITEST.xlsm
    22.6 KB · Affichages: 19

thebenoit59

XLDnaute Accro
Bonjour Ralph.

Je te propose cette solution :
VB:
Private Sub TextBox1_Change()
    alimTB3
End Sub
Private Sub TextBox2_Change()
    alimTB3
End Sub

Private Sub alimTB3()
    If Me.TextBox1.Value = "" And Me.TextBox2.Value = "" Then Me.TextBox3.Value = "": Exit Sub
    If Me.TextBox2.Value <> "" Then
        TextBox3.Value = Replace(LCase(Trim(TextBox2.Value) & "." & Trim(TextBox1.Value) & "@orange.fr"), "-", "")
    Else
        TextBox3.Value = Replace(LCase(Trim(TextBox1.Value) & "@orange.fr"), "-", "")
    End If
End Sub
 

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088