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