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'485
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 jahman » 1 mars 2019, 15:36 » dans Excel - VBA
    1 Réponses
    64 Vues
    Dernier message par jahman
    1 mars 2019, 16:25
  • ScrollBar
    par Jess88 » 9 février 2017, 17:32 » dans Excel - VBA
    3 Réponses
    225 Vues
    Dernier message par BOB71AU
    12 février 2017, 19:35
  • 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
  • aide scrollbar
    par dann » 27 décembre 2014, 02:28 » dans Excel - VBA
    3 Réponses
    325 Vues
    Dernier message par galopin01
    27 décembre 2014, 07:43
  • Scrollbar Userform
    par Damsa17 » 11 février 2019, 07:58 » dans Excel - VBA
    3 Réponses
    95 Vues
    Dernier message par Damsa17
    12 février 2019, 14:21
  • Déverouiller un Scrollbar
    par Gerday.M » 29 septembre 2016, 16:01 » dans Excel - VBA
    3 Réponses
    136 Vues
    Dernier message par Gerday.M
    30 septembre 2016, 08:51