Discussion :

[cufy59]

bonjour
j'aimerai savoir comment on fait pour changer les proprietes de plusieurs scrollbar dans une macro
en Fait j'aimerais inclure dans un tableau un nombre "nr" de scrollbar
voici comment je m'y prend

Code :

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

1
2
3
4
5
6
 
For i = 0 To nr - 1
 
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ScrollBar.1", Link:=False, DisplayAsIcon:=False, Left:=240, Top:=40.5 + 12.75 * i, Width:=60, Height:=12.75).Select
 
Next i

j'ai trouve comment on effectue le changement des proprietes pour une scollbar defini

Code :

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

1
2
3
4
5
6
 
with scrollbar1
.max=100
.min=0
.limkedcell=range("C4")
end with

seulement j'aimerai effectue toutes ces modifications sur toutes les scrollbars de mon tableau

merci de votre attention

[SilkyRoad]

bonsoir

Tu peux tester cette adaptation

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
Dim Obj As OLEObject
Dim i As Integer, Nr As Integer
 
Nr = 3
 
For i = 0 To Nr - 1
 
    Set Obj = ActiveSheet.OLEObjects.Add("Forms.ScrollBar.1")
 
    With Obj
        .Left = 240
        .Top = 40.5 + 12.75 * i
        .Width = 60
        .Height = 12.75
 
        .Object.Max = 100
        .Object.Min = 0
 
        .LinkedCell = "C" & i + 1
    End With
Next i

michel

[cufy59]

merci pour votre reponse
il Y avait un petit probleme mai tres simple
En fait nr je le demande dans un InputBox au debut et la vu qu'il est initie a 3 il ne me metait que 3 scrollbars

du coup j'ai fait une petite modification et le programme marche

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
 
For i = 3 To Nr + 2
 
    Set Obj = ActiveSheet.OLEObjects.Add("Forms.ScrollBar.1")
 
    With Obj
        .Left = 240
        .Top = 40.5 + 12.75 * (i - 3)
        .Width = 60
        .Height = 12.75
 
        .Object.Max = 100
        .Object.Min = 0
 
        .LinkedCell = "C" & i + 1
    End With
Next i

je vous remerci enormement de votre attention et de votre reponse qui m'aide enormement.merci