vérifier une adresse mail

[sri75]

Bonjour,

j'ai une base de donnée sous excel et je voudrais pouvoir vérifier, avant l'envoi des mails si les adresses contiennent des caractères interdits du type é è à ç ( caractères accentués ) et vérifier aussi si l'adresse contient un @.

Avec un filtre de type contient é ça marche, mais je voudrais tester toutes mes lignes et placer les anomalies dans un autre onglet ( j'ai 3000 adresses ).

Merci à tous pour votre aide.

 

[tototiti2008]

Re : vérifier une adresse mail

Bonjour sri75,

je suppose qu'il faudrait que tu testes également la présence d'espaces (interdits) et sans doute d'autres caractères interdits...

 

[smotty]

Re : vérifier une adresse mail

Bonjour,

avec cette fonction:

Function OkAdresse(ByVal StrEmail) As Boolean
Dim StrE As String
Dim i As Integer
Dim blok As Boolean

blok = True
StrE = Trim(StrEmail)
If StrE Like "*@*" And StrE Like "*.*" Then
For i = 1 To Len(StrEmail)
c = Mid(StrE, i)
ascC = Asc(c)

Select Case ascC

Case 64 To 90, 97 To 122, 45, 46, 95
'*********** ici les codes ASCII autorisés ************

Case Else
'****** si un caractère non autorisé**************
blok = False
Exit For
End Select
Next i
Else
blok = False
End If

OkAdresse = blok
End Function

Si j'ai oublié des codes ASCII tu peux les ajouter.

A+

 

[sri75]

Re : vérifier une adresse mail

ca marche avec ça !

Sub testvalid()

Dim prems As Variant
debut:
prems = ActiveCell.Value
If prems = "" Then Exit Sub

i = ActiveCell.Row

If Range("B" & i) Like "*é*" Then
GoTo pb

ElseIf Range("B" & i) Like "*è*" Then
GoTo pb

ElseIf Range("B" & i) Like "*à*" Then
GoTo pb

ElseIf Range("B" & i) Like "*ç*" Then
GoTo pb

pb:

ActiveCell.Offset(0, 1).Value = prems

End If

ActiveCell.Offset(1, 0).Select

GoTo debut

End Sub


Je n'arrive pas a faire fonctionner l'équivalant d'un "not like" pour @

 

[smotty]

Re : vérifier une adresse mail

La fonction que je t'ai donnée fonctionne et en plus elle teste si il y a un "." et un "@".😀

A+

 

[sri75]

Re : vérifier une adresse mail

La fonction que je t'ai donnée fonctionne et en plus elle teste si il y a un "." et un "@".😀

A+

C'est un peu compliqué pour moi, tous ces codes ascii , merci de ton aide.