Microsoft 365 Contrôler le format d'une adresse mail

[Habi]

Bonjour,
Je souhaiterai mettre en place un contrôle des adresses mails dans mon fichier. Quelque chose de simple qui indique à l'utilisateur de ressaisir l'adresse mail si elle n'est pas conforme aux standards (identité ou pseudo + @ + domaine). Je vous joint mon fichier o^j'ai inscrit quelques adresses mail en colonne H dont certaine avec des fautes de frappe. Merci de votre aide.

 

[wDog66]

Bonjour Habi,

Bonjour,
Je souhaiterai mettre en place un contrôle des adresses mails dans mon fichier. Quelque chose de simple qui indique à l'utilisateur de ressaisir l'adresse mail si elle n'est pas conforme aux standards (identité ou pseudo + @ + domaine). Je vous joint mon fichier o^j'ai inscrit quelques adresses mail en colonne H dont certaine avec des fautes de frappe. Merci de votre aide.

Avec ce code

Function IsValidEmail(sEmailAddress As String) As Boolean
    'Code from Officetricks
    'Define variables
    Dim sEmailPattern As String
    Dim oRegEx As Object
    Dim bReturn As Boolean
   
    'Use the below regular expressions
    sEmailPattern = "^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$" 'or
    sEmailPattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
   
    'Create Regular Expression Object
    Set oRegEx = CreateObject("VBScript.RegExp")
    oRegEx.Global = True
    oRegEx.IgnoreCase = True
    oRegEx.Pattern = sEmailPattern
    bReturn = False
   
    'Check if Email match regex pattern
    If oRegEx.Test(sEmailAddress) Then
        'Debug.Print "Valid Email ('" & sEmailAddress & "')"
        bReturn = True
    Else
        'Debug.Print "Invalid Email('" & sEmailAddress & "')"
        bReturn = False
    End If

    'Return validation result
    IsValidEmail = bReturn
End Function

Source : http://www.vbaexpress.com/kb/getarticle.php?kb_id=281

Et dans la feuille ou sont saisies les adresses mail

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Vérifier si saisie d'une adresse mail dans la colonne H
  If Not Intersect(Range("H:H"), Target) Is Nothing Then
    If IsValidEmail(Target.Value) = False Then
      Application.EnableEvents = False
      Target.ClearContents
      Application.EnableEvents = True
      MsgBox "Merci de saisir une adresse mail valide SVP", vbCritical, "OUPS..."
    End If
  End If
End Sub

A+

 

[Habi]

Formidable ! Merci beaucoup wDog66
Malheureusement je crains que mes connaissance en Macros et VBA ne soient trop limitées pour pouvoir avoir l'usage de tes superbes codes ...
Serais-tu m'assister dans la mise en place ?

Merci​

 

[wDog66]

Re,

Oula.... dans ton fichier, sur Excel, tu fais ALT+F11 pour aller dans l'éditeur VBA
Tu insères un module dans lequel tu colles le 1er code
Tu double clic sur feuil1 pour coller le 2ème code

Et voilà

 

[Jean-Eric]

Bonjour,
Une proposition par formule. Elle retourne vrai ou faux.
Cdlt.

=REGEX.TEST(H2:H9;"^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$")

 

[Habi]

Merci beaucoup wDog66 pour ton aide et merci Jean-Eric pour ta proposition par formule

 

[Hecatonchire]

Bonsoir à tous,

Mission impossible en réalité avec une expression régulière si l'on veut coller parfaitement au normes.

Tentative d'amélioration de la proposition de Jean-Eric

=REGEX.TEST(H2:H10;"^([\w_\-\.]+)@[\w\-]+(\.[\w\-]+)*(\.[a-z]{2,64})$")

\w : pour accepter les accents (si c'est possible)
{2,64} : pour accepter des domaines comme .info, .online, .store (j'ai eu un tel domaine il y a de nombreuses années et quelle de galère ça été avec le rejet des domaines de plus de 3 lettres !!!)