Erreur aprés un msgbox

cox188026 Messages postés 19 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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.


3 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,
Et quel est le message d'erreur ?
0
momo
 
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
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
0