Ajouter un décimal au paramètre 'SmallChang'e d'un SpinButton - Userform - VBA Excel

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

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.

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?

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

Code:

---

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

---

Citation:

---

Envoyé par Malek-HT

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:

---

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

---

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