Inititier valeur initiale d'un scrollbar en fonction d'une textbox ( valeur en %)

Bonjour;

Est-il possible d'initier la valeur d'une textbox par un scrollbar ( sans en réferer à une valeur min et max) , et de faire évoluer ainsi la valeur du textbox

Ma TextBox9.value a des valeurs en %

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Click()   TextBox9 = ScrollBar1.Value   With ScrollBar1   .SmallChange = 0.0005   End With   End Sub

---

Cdt

Code:

---

1 2 3 4 5

Private Sub ScrollBar1_Change()   TextBox9.Value = ScrollBar1.Value / 2000   End Sub

---

bonjour mercatog

Merci pour ta réponse, j'ai un souci j'aimerais qu'il garde en mémoire ma valeur dans ma textbox9, et que suite à l'action du scrollbar, elle soit modifiée

Cdt

En fait le code proposé ne fonctionnait pas comme il fallait
une proposition qui fonctionne (Edit: en fait partiellement, fonctionne seulement si le scroll se déplace pas à pas dans les 2sens)

Code:

---

1 2 3 4 5 6 7

Private Sub ScrollBar1_change() Dim m As Long If TextBox1.Value <> "" Then m = CDbl(TextBox1.Value) TextBox1.Value = m + ScrollBar1.Value / 2000 End If End Sub

---

Edit2:
Voilà un code fonctionnel; 2 variables publiques

Code:

---

1 2	Public m As Long Public n As Long

---

Code:

---

1 2 3 4 5 6 7

Private Sub ScrollBar1_change() If TextBox1.Value <> "" Then m = CDbl(TextBox1.Value) TextBox1.Value = m - n + ScrollBar1.Value / 2000 End If n = ScrollBar1.Value / 2000 End Sub

---

Bonjour Mercatog

Merci pour ta réponse, j'ai un souci au sujet du scrollbar.Il fonctionne seulement dans le sens de l'incrémentation ( quelque soit la fléche actionnée, il incrémente ).

As tu une solution pour adapter le code pour le faire agir dans "l'autre sens" et le borner de 0% et 100%.

? question subsidiaire, la fonction Cdbl ne fonctionne pas chez moi

Merci pour ton aide

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ScrollBar1_Change() Dim m As Double, n As Double If TextBox9.Value <> "" Then m = VBA.Format(TextBox9.Value, "0.0000") TextBox9.Value = m - n + ScrollBar1.Value / 100 End If n = ScrollBar1.Value / 100 TextBox9.Value = VBA.Format((TextBox9.Value), "0.00%") TextBox4.Value = (m * TextBox3.Value) End Sub

---

Si tu lisais bien, j'ai déclaré m et n comme étant des variables publiques
je remets le code en ajoutant les valeurs min et max
PS: j'ai testé les codes et ça marche (dans les 2 sens)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Public m As Long Public n As Long   Private Sub ScrollBar1_change() If TextBox1.Value <> "" Then m = TextBox1.Value Else m = 0 End If TextBox1.Value = m - n + ScrollBar1.Value / 2000 n = ScrollBar1.Value / 2000 End Sub   Private Sub UserForm_Initialize() ScrollBar1.Min = 0 ScrollBar1.Max = 2000 End Sub

---

Merci pour ta patience, cela fonctionne bien avec un bémol :ccool:

il me prend pour valeur initiale ( ce qui est logique la valeur de la textbox)
par csqut , je ne peux aller en-deça ( pas grave, je ferais avec sauf si tu as une astuce,ainsi quer le bornage à 100% )

effcevtivement ! lacune chez moi, de la déclaration de la valeur en public:oops:

Merci pour ton aide

J'ai modifié le code et ça fonctionne tant que la valeur initiale du TextBox9<=99

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit Public m As Long Public n As Long   Private Sub ScrollBar1_change() If TextBox9.Value <> "" Then m = CDbl(TextBox9.Value) Else m = 0 End If TextBox9.Value = m - n + ScrollBar1.Value / 2000 n = ScrollBar1.Value / 2000 End Sub   Private Sub TextBox9_AfterUpdate() If TextBox9.Value <> "" Then ScrollBar1.Max = 200000 - 2000 * TextBox9.Value Else ScrollBar1.Max = 200000 End If   End Sub   Private Sub UserForm_Initialize() ScrollBar1.Min = 0 ScrollBar1.Max = 200000 End Sub

---

Edit: Ou bien, une autre proposition sans la contrainte du 99

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Option Explicit Public m As Long Public n As Long   Private Sub ScrollBar1_change() If TextBox9.Value <> "" Then m = CDbl(TextBox9.Value) Else m = 0 End If TextBox9.Value = m - n + ScrollBar1.Value / 2000 n = ScrollBar1.Value / 2000 End Sub   Private Sub TextBox9_Change()   If TextBox9.Value <> "" Then If TextBox9.Value > 100 Then TextBox9.Value = 100 ScrollBar1.Value = ScrollBar1.Max End If End If End Sub   Private Sub UserForm_Initialize() ScrollBar1.Min = 0 ScrollBar1.Max = 200000 End Sub

---

Bonjour Mercatog

Dsl, pour la réponse tardive,la 2 solution fonctionne !!

Encore Merci :ccool: