erreur integer

erreur integer - VB/VBA/VBS - Programmation

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
   
   

Reply

Marsh Posté le 07-03-2006 à 10:16:01   

Reply

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 :
  1. if textbox3.value = "" then Sheets("Feuil1" ).Cells(i + 3, 2) ="" :exit sub

A toi de voir si ça marche dans ton cas.
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 07-03-2006 à 10:33:05    

super, ça marche. Merci

Reply

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 ;)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 07-03-2006 à 13:01:05    

Code :
  1. If IsNumeric(UserForm1.TextBox3) Then
  2.      Sheets("Feuil1" ).Cells(i + 3, 2) = Int(UserForm1.TextBox3)
  3. Else
  4.      Exit sub
  5. End If

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed