Discussion :

[LUCAS-28]

Bonjour,

J'aimerais savoir comment il faut faire pour que l'utilisateur encode obligatoirement un @ dans mon champ email. Si ce n'est pas le cas, un message d'erreur l'avertit qu'il doit remplir un @.

Merci

[Invité]

Bonjour

La manière la plus simple que je vois, c'est de faire un test avec la fonction InStr (voir l'aide pout l'utilisation). Le principe est de rechercher le @ dans la chaine qui a été saisie.

Starec

[Jeannot45]

Bonjour

Voici un petit but de code qui va bien à placer sur l'évènement Sortie de ton controle

Code :

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

1
2
3
4
5
6
7
 If InStr(ActiveControl, "@") = 0 Then
        Cancel = True
        With ActiveControl
            .SelStart = 0
            .SelLength = Len(ActiveControl)
        End With
    End If

A+

[LUCAS-28]

Euh je n'ai rien trouvé de bien précis pour la fonction inStr dans l'aide ... Qqun aurait-il des infos sur cette fonction ? merci

[Jeannot45]

Hello,

je t'ai fait un bout de code à ce sujet

[LUCAS-28]

Merci Jeannot ca marche : impossible de cliquer sur les autres controles avant de faire le changement, mais j'aimerais prévenir l'utilisateur par une msgbox
peux-tu me dire le code à ajouter stp ?

[Jeannot45]

Tu complètes avec :

Code :

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

1
2
3
4
5
6
7
8
 If InStr(ActiveControl, "@") = 0 Then
        MsgBox "La saisie du Caractère @ est obligatoire dans votre adresse",vbInformation,"Controle de saisie"
        Cancel = True
        With ActiveControl
            .SelStart = 0
            .SelLength = Len(ActiveControl)
        End With
    End If

[LUCAS-28]

Un tout grand merci