Manipuler l'objet CB.Caption dans une boucle [Résolu/Fermé]

Signaler
Messages postés
34
Date d'inscription
mardi 27 mars 2018
Statut
Membre
Dernière intervention
14 juin 2018
-
Messages postés
34
Date d'inscription
mardi 27 mars 2018
Statut
Membre
Dernière intervention
14 juin 2018
-
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

Messages postés
9580
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
28 octobre 2020
1 928
Bonjour

Essaies ceci

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


Cdlmnt
Messages postés
34
Date d'inscription
mardi 27 mars 2018
Statut
Membre
Dernière intervention
14 juin 2018

Ca marche je te remercie super ! Syntaxe pas évidente je n'y aurai pas penser.
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384
Bonjour,

Quel genre de boutons ctrl activx (feuille ou UF) ou ctrl de formulaire sur feuille
Messages postés
34
Date d'inscription
mardi 27 mars 2018
Statut
Membre
Dernière intervention
14 juin 2018

Le bouton qui déclenche la macro est dans l'UserForm d'une feuille. Il s'agit d'un ctrl ActivX.
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384
Re
l'UserForm d'une feuille quezaco????????????????
Messages postés
34
Date d'inscription
mardi 27 mars 2018
Statut
Membre
Dernière intervention
14 juin 2018

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 :)