Modifier paramètres ScrollBar

Bonjour,

Je souhaiterai pouvoir modifier les paramètres d'une scrollbar.

J'ai trouvé ce bout de code sur internet mais je ne parviens pas à l'adapter à mon projet.

Sub test()

Set sb = Worksheets("Feuil1").Shapes.AddFormControl(xlScrollBar, _
 Left:=100, Top:=100, Width:=10, Height:=200)
With sb.ControlFormat
 .LinkedCell = "F6"
 .Max = Range("D6")
 .Min = 0
 .LargeChange = 1
 .SmallChange = 1
End With

End Sub

Ce code permet en effet d'ajouter une scrollbar, mais je souhaiterai "simplement" le modifier pour qu'il agisse sur les paramètres de ma scrollbar déjà en place sur ma feuil1 (en E6) - Avec la valeur max en D6 et la linkedCell en F6.

Quelqu'un peut-il m'aider ?

BoB

Bonjour,

S'il s'agit de modifier une ScrollBar déjà existante, essayer en utilisant :

    Set sb = Worksheets("Feuil1").Shapes("Barre de défilement 1") 'adapter le nom de la scrollbar

et préciser la feuille de la cellule D6 (pour le Max), par exemple

    .Max = Worksheets("Feuil1").Range("E6").Value

A+

Merci pour votre réponse !

le code doit-il se trouver sur un module et être affecté à la scrollbar ou doit-il être en private sub sur la feuille concernée ?

Solutionné !

Merci de votre aide !