erreur integer - VB/VBA/VBS - Programmation
Marsh Posté le 07-03-2006 à 10:23:56
Salut tibo,
J'avais déja eu ce genre de conflit, pour le régler j'avais ajouté en début de sub un :
Code :
|
A toi de voir si ça marche dans ton cas.
@+
Marsh Posté le 07-03-2006 à 10:44:03
Cool !
Un petit résolu sur le titre de ton post, en aidera peut être d'autres
Marsh Posté le 07-03-2006 à 13:01:05
Code :
|
Marsh Posté le 07-03-2006 à 10:16:01
Je réalise actuellement un petit logiciel de Gestion de production. J'ai donc créé un userform dans lequel la personne va rentrer ses valeurs qui doivent être des nombres entiers, donc j'ai imposé aux textbox que se soit des Integer, sinon un message box s'ouvre
voila les lignes de programmation:
Private Sub TextBox3_Change()
On Error GoTo MsgErreurs
Sheets("Feuil1" ).Cells(i + 3, 2) = Int(UserForm1.TextBox3)
Exit Sub
MsgErreurs:
MsgBox "Vous devez entrer un nombre entier", vbExclamation, "Erreur de frappe ?"
Resume Next
End Sub
Le problème est que quand il n'y a rien d'écris dans la textbox , il considère que ce n'est pas un entier et le msgbox s'ouvre.
Comment faire pour que quand il n'y a rien d'écris dans le textbox le message ne s'affiche pas? Merci