Discussion :

[rico63]

Bonjour,
voici voilà mon problème : j'ai une zone text dans un formulaire et je souhaiterais avoir un message si le contenu ne comporte pas 6 caractères lorsqu'on valide par "entr".
J'aimerais le faire en vba.
Merci pour les pistes et votre aide ...

[Invité]

Bonjour

Code :

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

1
2
3
4
5
6
7
 
Private Sub MaTextbox_AfterUpdate()
    If Len(matextbox.Value) <> 6 Then
        MsgBox "Vous  devez saisir  6 caractères", vbExclamation + vbOKOnly, "Saisie Erronée"
        Exit Sub
    End If
End Sub

Donc à mettre sur l'évènement AfterUpdate de ta zone de texte.

Starec

[rico63]

Merci beaucoup, super cool .

[rico63]

Bonjour,
Enocre une question, quand je click sur ok de la message box, serait-il possible que le curseur retourne dans la zone de texte et efface cette dernière.

[rico63]

J'ai trouvé pour effacer la saisie, j'utilise Me.Text = vbNullString

Par contre je n'ai pas encore trouvé pour que le curseur soit dans la zone texte.

[DMboup]

Cherches du coté de SetFocus.

[rico63]

Merci pour vos réponses, je vais essayer de voir ce SetFocus !