Gestion d\'erreur et retour au Controls

laurent45

XLDnaute Occasionnel
Gestion d'erreur et retour au Controls

Bonjour le Forum,

Je suis en train de finaliser mon Appli, et je travaille sur la gestion d'erreur.
Pour une TextBox avec valeur par défaut '0,00', j'ai :
Private Sub CARestauMidiBox_AfterUpdate()
CARestauMidiBox = MAJForm1(CARestauMidiBox)
End Sub
Il peut arriver lors de la saisie que l'utilisateur ne sélectionne pas le contenu pour éviter d'avoir un nombre à 2 ','.
Ex. : '0,001235,25'=> Erreur Type (logique).

Donc pour la fonction MAJFORM, j'ai ajouté une gestion d'erreur :
Public Function MAJForm(T As String) As String
On Error GoTo ErreurType
MAJForm = Format(CDbl(T), '0.00')
Exit Function
ErreurType:
MsgBox 'Attention ! La saisie n'est pas valide. ' & vbCr & 'Veuillez effacer la saisie et recommencer ! ', vbOKOnly, 'Erreur Type ! '
Resume Next
End Function
Mais le problème, c'est que la TextBox est vidée, et qu'il donne le Focus à la TextBox suivante.

Je souhaiterais que le Focus revienne sur le Controls qui génère l'erreur.

Merci

Edit : Je viens d'essayer avec la gestion d'erreur au niveau de la Private Sub ..._AfterUpdate(), et le résultat est le même...

Message édité par: laurent45, à: 12/10/2005 17:48
 

Discussions similaires

Réponses
14
Affichages
973

Statistiques des forums

Discussions
312 922
Messages
2 093 660
Membres
105 779
dernier inscrit
le routier