Erreur aprés un msgbox
Bonjour,
dans un userform je vérifi que la valeur d'un textbox soit bien un nombre avant de continuer.
mais après avoir valider le msgbox un message d'erreur apparait au lieux de retourner sur l'userform pour que je puisse corriger l'erreur.
' copier dans les textbox en fonction de la ligne choisi
Private Sub TextBox5_Change()
If Not IsNumeric(Right(TextBox5, 1)) And Right(TextBox5, 1) <> "," Then
MsgBox "entré un numero de ligne"
End If
If Rows(TextBox5).Select Then
...
merci pour vos solution.
dans un userform je vérifi que la valeur d'un textbox soit bien un nombre avant de continuer.
mais après avoir valider le msgbox un message d'erreur apparait au lieux de retourner sur l'userform pour que je puisse corriger l'erreur.
' copier dans les textbox en fonction de la ligne choisi
Private Sub TextBox5_Change()
If Not IsNumeric(Right(TextBox5, 1)) And Right(TextBox5, 1) <> "," Then
MsgBox "entré un numero de ligne"
End If
If Rows(TextBox5).Select Then
...
merci pour vos solution.
3 réponses
-
ContributeurBonjour,
Et quel est le message d'erreur ?
-
Bonjour
enlève la textBox_change er mettre un KeyPress
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub
A+
Maurice -
ContributeurBonjour,
Où en es-tu avec ce post
https://forums.commentcamarche.net/forum/affich-34259764-ouvrir-outlook
