Problème de SpinButton

Bonjour,

Code:

---

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

Salut Ledaf et ke forum
sur le module lié

Code:

---

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+

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 :(

Bonjour,

Dans les propriétés de la ScrollBar :

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

Dans le module du UserForm

Code:

---

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 ...
.

Je viens de retester et mon spin bouton démarre toujours de 0 et son maximum est de 0.2.

Salut Ledaf et le forum

Citation:

---

Je viens de retester et mon spin bouton démarre toujours de 0 et son maximum est de 0.2

---

Si tu veux de l'aide, fourni des données :
Spinbouton : sur feuille ou sur USF ?
Valeur mini : ?
Valeur Max : ?
Pas : ?
On peut discuter dans le vide, mais je ne trouve pas ça intêressant!!!
Mets ton code qu'on comprenne ce que tu fais (mal).
A+

Ci joint le userform en question avec le code.
Ce sera peut être plus efficace pour savoir ce que j'attend.

En vous remerciant

Salut Ledaf et le forum
T'aurais commencé par là :mouarf:
Les limites sont : 80 <= textbox4 <= 100 ? (prévues comme ça dans l'exemple)

Tu te prépares de douces nuits blanches....

Tu ne renommes aucun contrôle : aujourd'hui tu es en plein sur tes macros, tu sais bien que TextBox4 doit contenir le coefficient. Mais dans 2 ou 6 mois ? Surtout si c'est un lundi et que t'as fait la bringue la veille...
Tu ferais mieux de renommer tes contrôles de manière plus explicite.
Mais effectivement, il est plus facile de manipuler une série Controls("TextBox" & x). Mais c'est à réflèchir avant, tant que le nombre de contrôles (et les macros associées) est limité
A+

Dsl de réécrire, mais cela ne marche tjs pas...
Et en fait le min est 0.8 et le max 2.
Mais vu que le pas du spinbutton est au minimum de 1, j'ai donc mis 80 et 200 et au moment d'attribuer la valeur a la textbox, il faut diviser par 100 (ce que j'ai ommis dans la macro).

Quand tu appuie par exemple sur le bouton "1974-1982" tu as la valeur "1.4" qui s'affiche dans la textbox4.
Jusque là on est d'accord?
Ensuite je voudrai par exemple ajuster cette valeur à 1,45, donc j'appuie sur le bouton droit de la toupie. Et lorsque je fais ça, la valeur de la textbox démarre à 0 pas vous? Alors que je voudrai qu'elle démarre de la valeur 1.4 (dans mon exemple).
C'est plus clair?

je pense avoir compris ce que tu cherches à faire, teste ton fichier en pièce jointe et dis moi si c'est ça...?

Pièce jointe 35676
.

:D:D:D:D:D:D:D:D:D:D
Ah tu me sauve la vie!! Merci beaucoup de m'avoir consacré autant de temps.
A bientôt sûrement... ;)

Apparemment, c'est résolu. Faudrait pas oublier de cliquer sur :resolu: !