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 - 19 avr. 2018 à 16:37

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

Afficher la suite

2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 434
Bonjour

Essaies ceci
```
For nucb = 1 To 3
  ActiveSheet.OLEObjects("CB" & nucb).Object.Caption = "BIM"
Next nucb
```
Cdlmnt
0
1. 2015-1158 Messages postés 34 Statut Membre
  
  Ca marche je te remercie super ! Syntaxe pas évidente je n'y aurai pas penser.
  
  0
Réponse 2 / 2
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Quel genre de boutons ctrl activx (feuille ou UF) ou ctrl de formulaire sur feuille
0
1. 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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Re
  l'UserForm d'une feuille quezaco????????????????
  
  0
3. 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

Manipuler l'objet CB.Caption dans une boucle

2 réponses

Discussions similaires

Newsletters