Discussion :

[meryn]

Bonsoir ! comment allez vous, voilà j'ai un nouveau sujet.
il sagit ici de différencier entre un mail Personnel et un mail Professionnel.
généralement connu :
- le mail personnel notamment ( Yahoo, Gmail, Hotmail, Live, Voila,...)
- le mail Professionnel souvent reconnu par un nom d'entreprise,Société
ou un organisme ( exemple: rene@lg.fr , christian@toyota.com ,..)

dans mon userform j'ai une zone de texe 1 (pour la saisi d'un mail Personnel) pour l'enregistrer sur ma feuille je clique sur le bouton (enregistrer mail perso qui se trouve aussi sur mon userform)
et une zone de texe 2 (pour la saisi d'un mail Professionnel) pour l'enregistrer sur ma feuille je clique sur le bouton (enregistrer mail pro qui aussi se trouve sur mon userform).

le Problème ici je veux que quand j'insert un mail personnel dans la partie de la zone de texe professionnel qu'il reconnaisse le mail personnel en me disant ceci n'est pas un mail professionnel.

même chose pour le cas d'un mail personnel, il ne peut que accepter les mails personnel, pas les mails professionnel.

voici mon code qui me permet d'ajouter des mails (pour le bouton)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Ajout1_Click()
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
               If UserForm1.TextBox1.Text = "" Then
                        MsgBox "Vous n'avez rien saisi;" & Chr(10) & "Veillez entrer un mail! "
                    Exit Sub
                   End If
For i = 1 To 10000
If Cells(i, 1) = "" Then Exit For
Next
 
'insertion de la valeur de la zone de texte (textbox1 représentant le nom de la zone de texte)
Cells(i, 1) = TextBox1.Text
End Sub

et celui ci le code de ma zone de texe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox1_Change()
Sheets("Mail Personnel").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

[BlueMonkey]

Bonjour,

un mail Personnel [...] généralement connu :
- le mail personnel notamment ( Yahoo, Gmail, Hotmail, Live, Voila,...)
[...]
le Problème ici je veux que quand j'insert un mail personnel dans la partie de la zone de texte professionnel qu'il reconnaisse le mail personnel en me disant ceci n'est pas un mail professionnel.

Pour savoir si un destinataire de mail utilise un email faisant partie de la liste des fournisseur d'email considéré comme perso,
utilise la fonction isMailPerso(<adresse email du destinataire). Par conséquence, les mails qui ne seront pas personnel, seront considérés comme professionnel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function isMailPerso(destinataire As String) As Boolean
    Dim ISPPerso() As String
    ISPPerso = Split("yahoo;gmail;hotmail;live;voila;laposte;aol;bouygtel;crocomail", ";")
 
    isMailPerso = False
    Dim i As Integer
    For i = 0 To UBound(ISPPerso)
        If InStr(1, LCase(destinataire), "@" & ISPPerso(i)) > 0 Then
            isMailPerso = True
            Exit For
        End If
    Next i
 
End Function

[Invité]

Bonjour

Attention de bien mettre à jour la liste, il manque par exemple la Dartybox.

Philippe

[meryn]

Bonjour ! merci , j'ai un peu du mal à m'en sortir ce code je doit l'associer l'un de mon code ou bien. si vous pouvez m'en dire plus je m’en sortirais aussi vite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function isMailPerso(destinataire As String) As Boolean
    Dim ISPPerso() As String
    ISPPerso = Split("yahoo;gmail;hotmail;live;voila;laposte;aol;bouygtel;crocomail", ";")
 
    isMailPerso = False
    Dim i As Integer
    For i = 0 To UBound(ISPPerso)
        If InStr(1, LCase(destinataire), "@" & ISPPerso(i)) > 0 Then
            isMailPerso = True
            Exit For
        End If
    Next i
 
End Function

[BlueMonkey]

Re.

Avec la ligne ISPPerso = Split("yahoo;gmail;hotmail;live;voila;laposte;aol;bouygtel;crocomail", ";") ISPPerso contient un tableau de chaîne contenant
la liste de domaine considéré comme personnel.

Pour compléter la liste comme indiqué par Philippe JOCHMANS, il suffit d'ajouter d'autre domaine à la fin de la chaîne de caractère, en les séparant par des ;

Donc dans la fonction qui ajoute un code mail Professionnel, il faudra ajouter quelque par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     If isMailPerso(UserForm1.TextBox1.Text) Then
       Call MsgBox("Ceci est un destinataire non professionnel" & Chr(10) & _
                   "Le traitement est interrompu", vbExclamation + vbOKOnly)
       Exit Sub
    End If

[meryn]

Salut ! je m'en sort pas, ça vous dérangerais si je vous passais mon fichier excel vba, afin que vous y jeter un oeil et si vous pouvez ajouter ces codes. ça m'aiderait beaucoup merci.