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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,
    Et quel est le message d'erreur ?
    0
  2. 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