créer et modifier une propriété d'un ToggleButton

Bonjour,

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

Code:

---

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:

---

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

---

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

Citation:

---

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

---

Merci de votre aide

remplace par ça et dit moi si sa fonctionne:

Code:

---

1 2 3

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

---

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

essayes ceci:

Code:

---

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"

---

Merci pour ta réponse

j'ai une erreur sur la ligne suivante

Code:

---

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:

---

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

---

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

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.

je crée une macro juste pour la caption

Code:

---

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

---

ça ne marche pas

ActiveWorkbook ne doit pas suffire peut être

J'ai essayé ceci cela fonctionne, l'erreur que tu me cites (et que j'avais également lors de mes tests) est parti:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test1() 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 'texte sur le bouton ActiveSheet.OLEObjects(X).Object.Caption = "BU "   End Sub

---

Mille merci jackborogar pour le temps que tu as pris pour m'aider
cela fonctionne :applo:
A bientôt
Sophie