Discussion :

[sophie33]

Bonjour,

J'ai une macro dans un classeur qui crée un ToggleButton
sur une feuille dans un autre classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=1.5, Width:=40.5, Height:=21) _
.Select

je n'arrive pas à modifer sa propriété caption à la création

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Mafeuille").ToggleButton1.caption="nom_bouton"

j'ai une erreur d'excécution '438'

propriété ou méthode non gérée par cet objet

Merci de votre aide

[jackborogar]

remplace par ça et dit moi si sa fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=1.5, Width:=40.5, Height:=21) _
.Select

[jackborogar]

Bon c'est une connerie se que je t'ai marqué:

essayes ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=1.5, Width:=40.5, Height:=21)
 
X = ActiveSheet.OLEObjects.Count 'compter le nombre de boutons existants dans la feuille
 
    'option nommer l'objet
    oOLE.Name = "ToggleButton" & X
ActiveWorkbook.Sheets("Mafeuille").ToggleButton & X.caption="nom_bouton"

[sophie33]

Merci pour ta réponse

j'ai une erreur sur la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Mafeuille").ToggleButton & X.caption="nom_bouton"

le reste est ok


En mode pas à pas X prend bien la valeur 1
Mais il me semble que cela revient au meme que d'ecrire en dur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Mafeuille").ToggleButton1.Caption = "nom_bouton"

Et c'est çà que j'ai l'erreur 438

[jackborogar]

J'ai essayé ça, après faut adapté. Je sais pas pourquoi mais on peut pas appelé directement après la création du toggle, la fonction Caption. Il faut appeler la premier méthode puis appelé une autre méthode pour le Caption. Tout cela séparement et ça fonctionne.

[sophie33]

je crée une macro juste pour la caption

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("mafeuille").ToggleButton1.Caption = "nom_bouton"

ça ne marche pas

ActiveWorkbook ne doit pas suffire peut être