Discussion :

[Malek-HT]

Bonjour à tous,
Tout d'abord, un grand merci aux concepteurs de ce site qui m'ont faciliter la vie.
C'est mon tout premier message alors souhaitez moi le bienvenu
Sans plus tarder, je pose aux bienveillants la question suivante :
Lorsque je clique sur un SpinButton d'un userform, la valeur change selon le paramètre "SmallChange".
Sauf que, j'arrive pas à affecter un '0,1' pour ce paramètre, y-a t-il un moyen de rendre ceci faisable?
J'explique : si par exemple la valeur contenue dans le SpinButton est 10, je souhaite que lorsque j'appui sur ce dernier, la valeur devient 10,1 puis 10,2 ....
Merci d'avance chers développeurs

[Docmarti]

Bonjour Malek.

Le SpinButton n'accepte que les nombres entiers. Mais libre à toi d'interpréter sa valeur comme étant une valeur décimale : tu n'as qu'à la diviser par 10 dans un sens et la multiplier par 10 dans l'autre sens.

[Malek-HT]

Bonjour Docmarti,
Merci beaucoup de vous avoir intéressé à ma question.
Donc une chose est claire, pas moyen qu'un Spin Button affiche un décimal dans un TextBox.
Pouvez vous me proposer une autre alternative? Je ne veux pas diviser par 10, je souhaite que l'utilisateur puisse voir dans un userform, un chiffre par défaut affecté à un textbox et quand il appui sur le Spin Button (ou la deuxième alternative), il voit son chiffre augmenté de 0,1.
Avez vous une idée de génie?

[mercatog]

Exemple qui permet d'incrémenter ou de décrémenter la valeur contenu dans TextBox1 à l'aide de ScrollBar1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ScrollBar1_Change()
Static Preced As Integer
 
Me.TextBox1 = Val(Me.TextBox1) + (Me.ScrollBar1 - Preced) / 10
Preced = Me.ScrollBar1
End Sub

[Docmarti]

je souhaite que l'utilisateur puisse voir dans un userform, un chiffre par défaut affecté à un textbox et quand il appui sur le Spin Button (ou la deuxième alternative), il voit son chiffre augmenté de 0,1.

Pour des dizièmes, tu divises par 10.
Ca évite en plus d'avoir à faire des opérations sur des nombres décimaux en VBA, ce qui pourrait occasionner des problèmes de précision.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim diviseur As Long
 
Private Sub UserForm_Initialize()
 mini = -1.5
 maxi = 1.5
 diviseur = 10 '(diziemes)
 SmallChange = 1
 
SpinButton1.Min = mini * diviseur
SpinButton1.Max = maxi * diviseur
SpinButton1.SmallChange = SmallChange
 
End Sub
 
Private Sub SpinButton1_Change()
 
TextBox1 = SpinButton1.Value / diviseur
 
End Sub

[Malek-HT]

Merci à vous les gars,
C'est parfait, J'ai pas pensé à diviser la valeur contenue dans le TextBox
Merci encore