[VBA-E]changer les proprietes d'une scrollbar dans la macro

Version imprimable

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:

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:

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

bonsoir

Tu peux tester cette adaptation

Code:

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

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:

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