Discussion :

[Ledaf]

Bonjour,

Code :

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

TextBox4 = SpinButton1.Value

Voici où se situe mon problème: comme on peut voir ci-dessus, la valeur de la toupie est attribué au textbox4.
Or cette textbox contient déjà une valeur et ce que j'aimerai c'est ajuster cette valeur grâce à la toupie.
Mais mon problème est que lorsque je clique sur ma toupie, elle démarre du minimum ou du maximum.

Pouvez vous m'aider?

En vous remerciant

[Gorfael]

Salut Ledaf et ke forum
sur le module lié

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub SpinButton1_Change()
Application.EnableEvents = False
Me.TextBox4 = Me.TextBox4 - 50 + Me.SpinButton1
Me.SpinButton1 = 50
Application.EnableEvents = True
End Sub
Private Sub SpinButton1_GotFocus()
Me.SpinButton1 = 50
End Sub

Vu le peu de renseignement, je ne me suis pas encombré de garde-fou (gestion des erreurs obligatoire si tu ne veux pas de mauvaises surprises, vérifier que la textbox contient un nombre, etc.)
Me.TextBox4 - 50 + Me.SpinButton1 => bouton du haut augmente et du bas baisse
Me.TextBox4 + 50 - Me.SpinButton1 => bouton du haut baisse et du bas augmente
A+

[Ledaf]

Euh je pense ne pas avoir tout saisi là!
Peut tu détailler un peu + stp.

Pour info le min du spinbutton est de 0.8 et le max est de 2.
Je rentre par exemple la valeur 1.4 dans ma textbox et je voudrai par exemple l'ajuster à 1.45 grace au spinbutton.
Mais lorsque je clique sur le spinbutton, il démarre à 0.8

[fring]

Bonjour,

Dans les propriétés de la ScrollBar :

• Min : 80
• Max : 200
• SmallChange : 5
• LargeChange : 20

Dans le module du UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oVal As Single
 
Private Sub ScrollBar1_Change()
TextBox1 = Format(oVal + ((ScrollBar1 - 80) / 100), "#0.00")
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
oVal = TextBox1
End Sub
 
Private Sub UserForm_Initialize()
If TextBox1 <> "" Then oVal = TextBox1
End Sub

Reste à ajouter les sécurités éventuelles en cas de valeur non numérique dans la TextBox ou de point au lieu de la virgule comme séparateur de décimales ou ...
.