SPINBUTTON ET TEXTBOX

[REDJFA]

BONJOUR,

je réalise actuellement une userform sur excel
et je souhaite creer un compteur avec l objet spinbutton
et TextBox.
je voudrait agrementer ou desagrementer jusqu'a la valeur 0
(donc pas de chiffre negative)
Donc le spinbutton est mon outils de compteur et textbox affiche les valeur.
ATTENTION !!!
A chaque appel de la procedure le compteur doit etre mis a 0
Si quelqu'un peut m'aider cela serait SUPERRRRRRRR
CORDIALEMENT
aitaddif@yahoo.fr

 

[Hervé]

Bonjour

Code à placer dans ton userform :

Private Sub SpinButton1_Change()
SpinButton1.Min = 0
TextBox1.value = SpinButton1.value
End Sub

Par contre, je n'ai pas compris ton histoire de remise à zéro ???

a plus

 

[HERVE]

Hervé écrit:

Bonjour

Code à placer dans ton userform :

Private Sub SpinButton1_Change()
SpinButton1.Min = 0
TextBox1.value = SpinButton1.value
End Sub

Par contre, je n'ai pas compris ton histoire de remise à zéro ???

a plus

TOUT D'ABORD UN GRAND MERCI HERVE
POUR M'AVOIR AIDER.
C'EST VRAIMENT SUPER SYMPA !!!!!


En ce qui concerne la remise a zero c'est que je serais amener
a appeler plusieurs fois cette procedure
et il faut que la valeur de départ soit de 0
à chaque fois.

 

[Akeya06]

Salut REDJFA, Hervé

Pour ce qui est de la remise a zero, il suffit de d'affecter le code suivant au boutton qui lance la procédure :

Private Sub commandbutton1_click()
SpinButton1.Min = 0
SpinButton1.Max= 100 'si tu as un maximum
TextBox1.value = SpinButton1.value
textbox1.value = 0
End sub

Je l'ai fait pour une de mes applications et ca marche...

A+