Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1540 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur integer

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur integer

n°1319953
tibo44
Posté le 07-03-2006 à 10:16:01  profilanswer
 

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
   
   

mood
Publicité
Posté le 07-03-2006 à 10:16:01  profilanswer
 

n°1319968
watashi
La démotivation : JAMAIS !
Posté le 07-03-2006 à 10:23:56  profilanswer
 

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 ;-)
n°1319975
tibo44
Posté le 07-03-2006 à 10:33:05  profilanswer
 

super, ça marche. Merci

n°1319989
watashi
La démotivation : JAMAIS !
Posté le 07-03-2006 à 10:44:03  profilanswer
 

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 ;-)
n°1320114
Profil sup​primé
Posté le 07-03-2006 à 13:01:05  answer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur integer

 

Sujets relatifs
erreur avec getselectedindex[PHP] erreur introuvable (résolu)
[resolu] erreur WARNING[resolu] problème requete erreur de syntaxe du a des quotes...
Declencher une erreur 404 ?Script vbs Erreur 800A0046 Permission denied
erreur de compilation java.lang[Tomcat] [JSP] afficher la cause de l'erreur
ERREUR LORS D UNE MISE A JOUR DE LA BASE ACCESProbleme de message d'erreur
Plus de sujets relatifs à : erreur integer


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR