Manipuler l'objet CB.Caption dans une boucle

Résolu
2015-1158 Messages postés 34 Statut Membre -  
2015-1158 Messages postés 34 Statut Membre -
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

ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

Essaies ceci

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


Cdlmnt
0
2015-1158 Messages postés 34 Statut Membre
 
Ca marche je te remercie super ! Syntaxe pas évidente je n'y aurai pas penser.
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Quel genre de boutons ctrl activx (feuille ou UF) ou ctrl de formulaire sur feuille
0
2015-1158 Messages postés 34 Statut Membre
 
Le bouton qui déclenche la macro est dans l'UserForm d'une feuille. Il s'agit d'un ctrl ActivX.
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Re
l'UserForm d'une feuille quezaco????????????????
0
2015-1158 Messages postés 34 Statut Membre
 
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 :)
0