Discussion :

[neiluj26]

Bonjour le forum,

Dans un formulaire, les utilisateurs doivent remplir une textbox avec un code client formé de 9 chiffres, sinon j'affiche une msgbox leur demandant de bien respecter ce format. Pour cela, j'utilise ce code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox1_AfterUpdate()
With UsfRTot
    If Not TextBox1 Like "#########" Then
        MsgBox "Merci d'entrer un code client au format 123456789."
        TextBox1.Text = ""
    End If
End With
End Sub

Le problème - qui ne doit pas en être un vrai puisque je ne trouve pas la solution - est que je voudrais que le curseur revienne dans cette textbox après que l'utilisateur a fermé la msgbox.

[laetitia]

bonjour neiluj26 le forum essai comme cela

Code :

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

1
2
3
4
5
 If Not TextBox1 Like "#########" Then
        MsgBox "Merci d'entrer un code client au format 123456789."
        TextBox1.Text = ""
        TextBox1.setfocus
End If

[neiluj26]

Bonjour Laetitia,

J'ai essayé cette méthode, mais ça ne change rien. C'est la textbox2 qui est activée...

[laetitia]

re, essai comme cela pour voir!! dans BeforeUpdate

Code :

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

1
2
3
4
5
6
7
Private Sub Textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not Textbox1 Like "#########" Then
        MsgBox "Merci d'entrer un code client au format 123456789."
        Textbox1 = ""
        Cancel = True
    End If
End Sub

[aalex_38]

Une question bête, pourquoi utiliser un évenement et ne pas faire ce test au moment de la validation, s'il y en a une bien sur ?

Deuxième question bête, a quoi il sert ce :

Code :

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

With UsfRTot

[neiluj26]

Ah, ça marche avec le beforeupdate. Merci (il faut que je me perfectionne sur les événements).

Je fais cette vérification à la validation de la textbox, parce que les utilisateurs auront plusieurs textboxes à remplir, et que je voudrais que tout soit bien rempli au fur et à mesure. Ou alors, j'ai pas compris ta question.

Quant à mon "With UsfRTot"... il sert à rien. C'est enlevé d'ailleurs *ahem*