Discussion :

[mlrdeni]

Bonjour,
je contrôle le contenu d'une textbox avec afterupdate. En cas d'erreur j'aimerais revenir sur cette textbox pour une nouvelle entrée avec je crois ce que vous appelez le focus. Avec la formule qui suit le curseur passe à la textbox suivante en validant le résultat de ma textbox. J'aimerais revenir sur celle-ci pour forcer une entrée valide. Merci de votre attention

Code :

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

1
2
3
4
5
6
7
Private Sub NAVION_AfterUpdate()
NAVION = Val(NAVION)
    If  Len(NAVION) > 3 Or Len(NAVION) < 2 Then
        MsgBox "Le N° saisi n'est pas valide"
 
    End If
End Sub

[HopPopPop]

Bonjour à tous,

Pourquoi ne pas utiliser plutôt la procédure BeforeUpdate ?
Dans le cas où la saisie serait incorrecte, il suffirait de mettre Cancel à True. Ainsi le focus reste sur le TextBox concerné.

cordialement

[mlrdeni]

Merci beaucoup.
C'était si simple.
Et pour ceux qui comme moi ne sont pas des kadors en VBA, voilà ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NAVION_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
    If Len(NAVION) > 3 Or NAVION = 0 Then
    MsgBox "Le N° saisi n'est pas valide"
    NAVION = ""
    Cancel = True
    End If
    NAVION = Val(NAVION)
End Sub