Boucle sur scrollbar

Bonjour,

Je n'arrive pas àfaire une boucle sur l'ensemble des "ScrollBar" de ma feuille :

For SB = 1 To 9

Sheets("ACCUEIL").Controls("ScrollBar" & SB).Value = 3

Next SB

Auriez-vous une solution ?

Merci

Bonjour,

Essayer ce code

    Dim objet_lié As OLEObject
    Dim ctrl As Object

    For Each objet_lié In Sheets("ACCUEIL").OLEObjects
        Set ctrl = objet_lié.Object
        If TypeOf ctrl Is MSForms.ScrollBar Then ctrl.Value = 3
    Next objet_lié

Si le code est lié à la feuille ACCUEIL

    Dim objet_lié As OLEObject
    Dim ctrl As Object

    For Each objet_lié In Me.OLEObjects
        Set ctrl = objet_lié.Object
        If TypeOf ctrl Is MSForms.ScrollBar Then ctrl.Value = 3
    Next objet_lié

Merci thev, ça fonctionne parfaitement.

Rechercher des sujets similaires à "boucle scrollbar"