Boucle sur scrollbar Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Benoist28200
Membre fidèle
Membre fidèle
Messages : 391
Inscrit le : 28 octobre 2015
Version d'Excel : 2013 FR

Message par Benoist28200 » 3 novembre 2019, 14:29

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
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'491
Appréciations reçues : 209
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 3 novembre 2019, 19:23

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é
B
Benoist28200
Membre fidèle
Membre fidèle
Messages : 391
Inscrit le : 28 octobre 2015
Version d'Excel : 2013 FR

Message par Benoist28200 » 3 novembre 2019, 20:50

Merci thev, ça fonctionne parfaitement.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • scrollbar
    par chtimili » 25 novembre 2015, 18:31 » dans Excel - VBA
    2 Réponses
    292 Vues
    Dernier message par chtimili
    26 novembre 2015, 08:18
  • ScrollBar
    par Jess88 » 9 février 2017, 17:32 » dans Excel - VBA
    3 Réponses
    226 Vues
    Dernier message par BOB71AU
    12 février 2017, 19:35
  • Scrollbar
    par jahman » 1 mars 2019, 15:36 » dans Excel - VBA
    1 Réponses
    64 Vues
    Dernier message par jahman
    1 mars 2019, 16:25
  • Indicateur ScrollBar
    par batoine » 5 mars 2015, 15:50 » dans Excel - VBA
    4 Réponses
    280 Vues
    Dernier message par batoine
    9 mars 2015, 09:41
  • Scrollbar Userform
    par Damsa17 » 11 février 2019, 07:58 » dans Excel - VBA
    3 Réponses
    96 Vues
    Dernier message par Damsa17
    12 février 2019, 14:21
  • scrollbar userform
    par LILI61 » 29 décembre 2014, 21:44 » dans Excel - VBA
    7 Réponses
    1105 Vues
    Dernier message par LouReeD
    31 décembre 2014, 18:03