Y
Yvon
Guest
Bonjour à tous,
J'ai un USF avec deux textbox, la saisie est controlée à l'envoi par le bouton valider, mon souci : si il y a deux erreurs de saisie les messages s'enchainent
Je souhaiterai en cas d'erreur dans la saise qu'après un message d'erreur le contenu d'une textbox soit vidé, le code arrêté, et repris après la saisie du bon chiffre.
Voila ou j'en suis la méthode :
If sheets(2).Range('A41').Value = 30 Then
If CDbl(TextBox3.Value) > sheets(2).Range('A44').Value Then MsgBox 'La ventilation des jours est supérieure, au nombre de jour déclaré !', vbInformation, 'Ventilations des jours'
Clearcontent = texbox3.Value
If CDbl(TextBox2.Value) > 1 Then MsgBox 'Le nombre des pauses ne peut être supérieur à 1 par jour, en 1/2 journée de location', vbInformation, 'Ventilation des pauses'
If CDbl(TextBox2.Value) = 1 Then Unload Me
End If
Bien sur l'effacement ne marche pas
Par avance merci du coup de main
Yvon
J'ai un USF avec deux textbox, la saisie est controlée à l'envoi par le bouton valider, mon souci : si il y a deux erreurs de saisie les messages s'enchainent
Je souhaiterai en cas d'erreur dans la saise qu'après un message d'erreur le contenu d'une textbox soit vidé, le code arrêté, et repris après la saisie du bon chiffre.
Voila ou j'en suis la méthode :
If sheets(2).Range('A41').Value = 30 Then
If CDbl(TextBox3.Value) > sheets(2).Range('A44').Value Then MsgBox 'La ventilation des jours est supérieure, au nombre de jour déclaré !', vbInformation, 'Ventilations des jours'
Clearcontent = texbox3.Value
If CDbl(TextBox2.Value) > 1 Then MsgBox 'Le nombre des pauses ne peut être supérieur à 1 par jour, en 1/2 journée de location', vbInformation, 'Ventilation des pauses'
If CDbl(TextBox2.Value) = 1 Then Unload Me
End If
Bien sur l'effacement ne marche pas
Par avance merci du coup de main
Yvon