Sujet Précédent Sujet Suivant

Erreur aprés un msgbox

Fermé
cox188026 Messages postés 18 Date d'inscription samedi 3 décembre 2016 Statut Membre Dernière intervention 21 juin 2017 - 12 janv. 2017 à 09:19
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 12 janv. 2017 à 12:51
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

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
12 janv. 2017 à 09:30
Bonjour,
Et quel est le message d'erreur ?
0
Réponse 2 / 3
momo
12 janv. 2017 à 12:13
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
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
12 janv. 2017 à 12:51
Bonjour,


Où en es-tu avec ce post

https://forums.commentcamarche.net/forum/affich-34259764-ouvrir-outlook
0

Discussions similaires

Code erreur 3000
Laurent -
JM -

5 réponses
Erreur 3005 sur France TV
Cambodgil -
Cambodgil -

4 réponses
Erreur 5000 message No Renderer Found
Joma -
Panth33ra -

1 réponse
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Instagram bloqué "une erreur s'est produite".
AnthonyM -
bazfile -

7 réponses