Probleme spinbutton sous vba excel 2003 [Résolu]

Datazoom 4 Messages postés dimanche 9 mars 2003Date d'inscription 5 décembre 2010 Dernière intervention - 22 mars 2010 à 22:03 - Dernière réponse : Datazoom 4 Messages postés dimanche 9 mars 2003Date d'inscription 5 décembre 2010 Dernière intervention
- 23 mars 2010 à 22:15
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
bigfish_le vrai 1839 Messages postés vendredi 13 mai 2005Date d'inscription 20 novembre 2013 Dernière intervention - 23 mars 2010 à 09:35
3
Merci
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+

Merci bigfish_le vrai 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 89 internautes ce mois-ci

Commenter la réponse de bigfish_le vrai
Meilleure réponse
r1r2 22 Messages postés mardi 23 janvier 2007Date d'inscription 31 mars 2010 Dernière intervention - 23 mars 2010 à 11:34
3
Merci
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).

Merci r1r2 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 89 internautes ce mois-ci

Commenter la réponse de r1r2
Meilleure réponse
Datazoom 4 Messages postés dimanche 9 mars 2003Date d'inscription 5 décembre 2010 Dernière intervention - 23 mars 2010 à 22:15
3
Merci
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

Merci Datazoom 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 89 internautes ce mois-ci

Commenter la réponse de Datazoom

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.