Probleme de toupie ...

Probleme de toupie ... - VB/VBA/VBS - Programmation

Marsh Posté le 16-03-2008 à 16:28:37    

Bonjour, est ce que quelqu'un connais d'ou vient mon probleme ??
D'avance merci...
 
J'ai sur un formulaire une toupie qui fait varier des "nombres d'heures" sur un textbox mais je ne parviens pas a faire des 1/2 heure (0,5  1,5   etc)....  
 
Voila mes lignes de code, et je ne vois pas ce qui m'empèche d'afficher le ".5", pouvez vous m'aider ?                            
 
 
dim nbheure as long
Public Sub toupie1_change()  
'gestion de la toupie !!  
zonetext1.Text = toupie1.Value  
End Sub  
 
Public Sub zonetext1_Change()  
'imputation du nombres d'heures à la variable nommée = NBHEURE  
Nbheure = Val(zonetext1.Text)  
 
'gestion de la toupie  
If Nbheure >= toupie1.Min And Nbheure <= toupie1.Max Then toupie1.Value = Nbheure  
 
End Sub

Reply

Marsh Posté le 16-03-2008 à 16:28:37   

Reply

Marsh Posté le 16-03-2008 à 17:35:28    

Répondu sur ton post précédent :

geraldao59 a écrit :


dim nbheure as long Double
Public Sub toupie1_change()
'gestion de la toupie !!
zonetext1.Text = toupie1.Value
End Sub
 
Public Sub zonetext1_Change()
'imputation du nombres d'heures à la variable nommée = NBHEURE
Nbheure = Val(zonetext1.Text)
 
'gestion de la toupie
If Nbheure >= toupie1.Min And Nbheure <= toupie1.Max Then toupie1.Value = Nbheure
 
End Sub



Message édité par otobox le 16-03-2008 à 17:36:40

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 16-03-2008 à 17:46:58    

oupss !! pardon je l'ais mis en variable "double" mais cela ne change rien, et dans les propriétés : je penses qu'il y a un rapport avec le "SMALLCHANGE" mais je rammmmme !


Message édité par geraldao59 le 17-03-2008 à 20:19:54
Reply

Marsh Posté le 16-03-2008 à 19:01:32    

Ma question serait plutot comment faire pour que toupie1.smallchange soit = à 0,5    ??????
 
Est ce possible ? ^^

Reply

Sujets relatifs:

Leave a Replay

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