Manipuler l'objet CB.Caption dans une boucle

Résolu
Bonjour,

Je souhaite créer une boucle pour renommer différents boutons.
Actuellement j'ai le bouton CB1, CB2 et CB3 qui s'appellent tous les trois "New".
Je souhaite coder une boucle pour les renommer tous les trois "BIM".

Dim var as Object
Dim i as Integer

For i=1 to 3
var="CB"&i
Worksheets.var.Caption="BIM"
Next

Cela ne marche pas j'ai une erreur d'execution 91
"Variable d'object ou variable de bloc With non définie"

J'ai tous essayé, String, Variant, Object pour ma variable "var" rien à faire ca ne fonctionne pas.
Quelle est la bonne syntaxe ?

Merci

2 réponses

  1. Bonjour

    Essaies ceci

    For nucb = 1 To 3
      ActiveSheet.OLEObjects("CB" & nucb).Object.Caption = "BIM"
    Next nucb


    Cdlmnt
    1. Ca marche je te remercie super ! Syntaxe pas évidente je n'y aurai pas penser.
  2. Bonjour,

    Quel genre de boutons ctrl activx (feuille ou UF) ou ctrl de formulaire sur feuille
    1. Le bouton qui déclenche la macro est dans l'UserForm d'une feuille. Il s'agit d'un ctrl ActivX.
    2. Re
      l'UserForm d'une feuille quezaco????????????????
    3. Re, la personne au-dessus vient de trouver tout marche nickel. Je me suis mal exprimé juste un ctrlX dans un UF. Mais je vous remercie pour l'aide à nouveau :)