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 : Sélectionner tout - Visualiser dans une fenêtre à part
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