Discussion :

[philippe_77]

bonjour,

je cherche à géré 2 scrollbars lié l'une à l'autre,mais cela boucle 2 fois, avez-vous une solution afin de ne pas boucler sur la 2emme userform qui elle même pointe sur la première.

dans la userform 2 scrollbar + 2 textbox

Code :

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

1
2
3
4
5
Private Sub ScrollBar1_Change()
              Me.TextBox1.Value = Me.ScrollBar1.Value
              Me.ScrollBar2.Value = 5
              Me.TextBox2.Value = Me.ScrollBar2.Value
End Sub

Code :

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

1
2
3
4
5
Private Sub ScrollBar2_Change()
          Me.ScrollBar1.Value = 6 
              Me.TextBox1.Value = Me.ScrollBar1.Value
               Me.TextBox2.Value = Me.ScrollBar2.Value
End Sub

avez-vous une solution?

[mercatog]

Bonjour
Peut être il y a plus simple mais en utilisant une variable booléenne globale

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
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Dim Manu As Boolean
 
Private Sub ScrollBar1_Scroll()
 
Manu = True
End Sub
 
Private Sub ScrollBar2_Scroll()
 
Manu = True
End Sub
 
Private Sub ScrollBar1_Change()
 
If Manu Then
    Manu = False
    Me.ScrollBar2.Value = 5
End If
Me.TextBox1.Value = Me.ScrollBar1.Value
Me.TextBox2.Value = Me.ScrollBar2.Value
End Sub
 
Private Sub ScrollBar2_Change()
 
If Manu Then
    Manu = False
    Me.ScrollBar1.Value = 6
End If
Me.TextBox1.Value = Me.ScrollBar1.Value
Me.TextBox2.Value = Me.ScrollBar2.Value
End Sub

[philippe_77]

Bonjour
oui effectivement cela fonctionne mieux, sans que la boucle interfère,
mais il n'y a pas de mouvement lors des clic à cote du scroll ou sur les flèches.
j'ai rajouté le code suivant afin de palier l’inconvénient:

Code :

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

1
2
3
4
5
6
7
 
Private Sub ScrollBar1_Enter()
    Manu = True
End Sub
Private Sub ScrollBar2_Enter()
    Manu = True
End Sub

cela est-il judicieux?
cordialement

[mercatog]

Et tu peux même supprimer les 2 sub ScrollBar1_Scroll et ScrollBar2_Scroll

[patricktoulon]

bonjour mercatog et philippe 77

pour ma part je n'utilise pratiquement plus le "scrollbar1_change"

je préfère le scrollbar1_scroll ce qui rend la chose dynamique

au plaisir

[mercatog]

Bonjour Patrick

Philippe_77
mais il n'y a pas de mouvement lors des clic à cote du scroll ou sur les flèches.

Et comment faire quand l’utilisateur clique sur les 2 flèches (qui déplacent l’ascenseur) ou à l'intérieur de scrollbar?