Discussion :

[bob456]

Bonjour, je voudrais savoir si il était possible de créer un bouton sur une feuille graphique ? (sans cellule).

Pour le moment j'avais soit :

Code :

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

1
2
3
4
5
6
7
Sub Ajouter_Un_Bouton()
    ActiveWorkbook.Sheets("Répartition des déchets").Buttons.Add(5890023.75, 340531.5, 866633.25, 176100.75).Select
    Selection.Height = 30
    Selection.Width = 70
    Selection.Name = "Retour"
 
End Sub

Soit :

Code :

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

1
2
3
4
5
    ActiveWorkbook.Sheets("Feuil1").OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=252.25, Top:=337.5, Width:=119.25, _
        Height:=20.25).Select
    Selection.Name = "Histogramme"
    Selection.Object.Caption = "Zoom Histogramme"

Cependant, sur une feuille de données (avec des cellules) cela fonctionne sinon j'ai une erreur du style :
"impossible de definir la propiété OnAction de la classe OLEobject"

merci pour votre futur aide,

[bob456]

Je n'ai toujours pas trouvé le moyen d'insérer par VBA un bouton sur une feuille Graphique. J'en aurais besoin pour faire un bouton "retour" sur le graphique pour revenir à la page principale.

[Soraphiroth]

Apparemment ça semble impossible. La solution serait de créer une barre d'outils personnalisée.

[bob456]

Merci pour la réponse, je vais regarder comment faire la barre d'outil

[Invité]

Bonjours,

Je pense quand même que c'est possible puisqu'on peut copier coller des bouton sur un Graphique. En créant un bouton sur une Feuille et en le balançant dans un Graphique, ça marche, donc il faudrai essayer avec l'enregistreur de Macro pour voir ce qu'il dit au niveau du code.

[Soraphiroth]

Personnellement je suis sous 2003 et lorsque je copie un bouton sur un graphique, il devient inutilisable. Ca a peut-être évolué avec les versions suivantes, mais sous 2003 et antérieurs ça reste malheureusement impossible.