Discussion :

[philpas3]

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

[Godzestla]

Bonjour,

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.

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

Code :

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

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

[SilkyRoad]

bonjour

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

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

remplace

Code :

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

.Object.PrintObject=False

par

Code :

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

.PrintObject=False

bonne journée
michel

[philpas3]

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