modifier propriete commandbutton en vba

bonjour,
je veux créer un bouton commandbutton1 de la boite à outils controles en vba et y mettre ses propriétés. En cherchant sur le net j'ai trouvé entre autres

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Bouton As OLEObject   Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=6, Top:=12.75, Width:=87, Height:=27) With Bouton .Name = "CommandButton1" .Object.BackColor = RGB(235, 235, 200) 'Couleur du bouton .Object.Caption = "Initialiser le filtre" 'Texte du bouton .Object.FontName = "Times New Roman" 'Police du bouton .Object.FontSize = 12 'Taille police du bouton End With

---

J'ai 2 soucis
1) Lorsque le bouton est créé par vba, (c'est bien un bouton controle et non un bouton formulaire) je n'ai pas accès au menu propriété par clic droit de la souris. Alors que si le bouton est créé manuellement, j'ai ce menu. Pourquoi?
Y a t-il une fonction à ajouter au bouton pour avoir les mêmes menu que si il était créé manuellement?

2) Comment modifier certaines propriétés du bouton notamment PrintObject?
J'ai essayé .Object.PrintObject=False mais ça crée une erreur.
Comment doit-on écrire cette propriété?

Merci

Bonjour,

Citation:

---

si le bouton est créé manuellement, j'ai ce menu. Pourquoi?

---

Démarre l'enregistreur de macro avant de faire ta manip manuelle et puis regarde le code généré. cela devrait t'aider.

Citation:

---

c'est bien un bouton controle et non un bouton formulaire

Code:

---

Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=6, Top:=12.75, Width:=87, Height:=27)

---

---

Pourtant le code parle de Forms.CommandButton

bonjour

il y a effectivement quelques différences entre les controles ajoutés manuellement et créés dynamiquement dont la fenetre propriétés)

Citation:

---

2) Comment modifier certaines propriétés du bouton notamment PrintObject?

---

remplace

Code:

---

.Object.PrintObject=False

---

par

Code:

---

.PrintObject=False

---

bonne journée
michel

Merci SilkyRoad.
C'est ce que je voulais. ça parait si simple quand on a la réponse.