probleme spinbutton sous vba excel 2003Résolu

Question

Bonsoir a tous,

Voila, je travaille en vba sous excel 2003.
Je crée un spinbutton associé a un textbox.
Quand je clique sur le bas du spinbutton, la valeur de mon text box decend de 1. jusque la, tout va bien, mais je voudrais que la valeur ne puisse pas decendre en dessous de 0. Moi j'ai -1, -2 etc...
Comment bloquer cela ?
J'ai bien essayé de bidouiller avec la propriété value, mais ca ne change pas mon probleme...
Quelqu'un a t-il la solution ???
Merci d'avance
Datazoom

bigfish_le vrai · Accepted Answer

Salut,

comme tu ne dis pas tout je n'ai pas d'autre choix que de supposer... 

donc ici je suppose que ton spinbutton et ta textbox sont dans une feuille

Private Sub SpinButton1_SpinDown()
    Dim MaValeur As Integer
    MaValeur = CInt(Me.TextBox1.Value) - 1
If Not MaValeur < 0 Then Me.TextBox1.Value = MaValeur
End Sub

Private Sub SpinButton1_SpinUp()
    Me.TextBox1.Value = CInt(Me.TextBox1.Value) + 1
End Sub

A+

r1r2 · Answer

Bonjour,

Le contrôle SpinButton possède une propriété Min (=0 par défaut) et une propriété Max (=100 par défaut). Après avoir si besoin redéfini ces deux propriétés, il suffit alors d'utiliser l'évènement Change :
Private Sub SpinButton1_Change()
    TextBox1.Value = SpinButton1.Value
End Sub

Il est possible d'initialiser les propriétés Value, Min et Max du SpinButton (par exemple à l'ouverture du classeur si le SpinButton est sur une feuille, ou s'il se trouve sur un UserForm, dans l'évènement Initialize de celui-ci).

Datazoom · Answer

Message a r1r2
Désolé mais ta méthode ne fonctionne pas, lorsque la valeur atteint -1, le min de spinbutton n'accepte pas les valeurs négatives, ta méthode génère une erreur...
Merci quand même d'avoir essayé...

Message à BigFish
Merci !! ton truc fonctionne parfaitement.
Merci du tuyau !!


Datazoom

Probleme spinbutton sous vba excel 2003

3 réponses

Votre réponse

Discussions similaires