Discussion :

[peaceti]

Bonjour,

Je me permets de demander à la communauté après avoir cherché des heures sur différents forums sans trouver de solution.

J'explique mon cas :

J'ai développé un outil avec intrication de usf. Sur l'un des modules de l'outil, il est possible de générer automatiquement des graphiques.
En fait ce qu'il se passe, c'est que je crée un nouvel onglet avec les données qui m'intéressent.
Ensuite, je fais un graphique TCD sur ces mêmes données.
Je copie le graph et et le colle dans un onglet graphique car l'image de ce dernier sera ensuite affiché sur le userform approprié. Il est en effet plus lisible.
Sur mon usf, j'ai un bouton qui me permet d'aller interagir avec le graphique, mais c'est là que ça coince, impossible de créer un bouton via code sur l'onglet graph qui permettrait à l'utilisateur de retourner directement sur le userform, un message d'erreur d'exécution 1004 me disant : "Impossible de lire la propriété Add de la classe Buttons"

Voici le morceau de mon code :

Code :

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

1
2
3
4
5
 
Sheets(2).Select
ActiveSheet.Buttons.Add(2820295.5, 1953157.125, 534252.375, 239661.75).Select
Selection.OnAction = "'retour_menu'"
Selection.Caption = "Retour au menu"

Rien de plus simple...

C'est le code qui est généré automatiquement par excel lorsque je fais un enregistrement de macro. Le plus étrange, c'est que manuellement ça fonctionne.

Si vous avez des idées, je suis preneur parce que là, je sèche !
Sur un onglet lambda, cette procédure fonctionne parfaitement.

En vous remerciant pour vos réponses,
Etienne

[EricDgn]

Bonjour,

En cherchant sur internet j'en arrive à la conclusion qu'il n'est effectivement pas possible de créer directement un bouton dans une feuille 'graphe' et que la solution est de faire un copier-coller d'un bouton placé sur une autre feuille puis de le positionner.

Code :

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

1
2
3
4
5
6
7
8
9
Sub CopierBouton()
    Sheets("Feuil1").Shapes("Button 1").Copy
    Sheets("Graph1").Select
    ActiveChart.Paste
    Selection.ShapeRange.IncrementLeft 300
    Selection.ShapeRange.IncrementTop 18
    Selection.OnAction = "Macro1"
    Sheets("Graph1").Select
End Sub

Bonne continuation.

[peaceti]

Déjà merci de consacrer du temps à ce sujet.

J'étais tombé effectivement sur ce style de solution mais je n'avais pas réussi.
Je vais réessayer avec ce code et je vous tiendrai au courant de mes résultats.

Merci

[Patrice740]

Bonjour,

Simplement comme ça :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Sub BoutonFormulaireSurGraphique()
' Ajoute un bouton sur un graphique.
Dim c As Chart                    'graphique
Dim b As Button                   'bouton
Const x As Integer = 60           'Abscisse du bouton
Const y As Integer = 50           'Ordonnée du bouton
Const w As Integer = 100          'Largeur du bouton
Const h As Integer = 20           'Hauteur du bouton
 
  Set c = ThisWorkbook.Charts("Graph1")
  Set b = c.Buttons.Add(x, y, w, h)
  With b
    .Name = "Btn 1"
    .Caption = "Bouton 1"
    .Font.Name = "Arial"
    .Font.Size = 12
    .Font.Bold = True
    .OnAction = "ClicSurBouton"
  End With
 
End Sub

[peaceti]

Je reviens sur ce sujet pour livrer mon retour.

Après avoir testé les deux solutions, seule votre solution EricDgn fonctionne.
Je l'ai adaptée à mon interface, c'est vraiment nickel !! Encore merci.

Par contre, la vôtre Patrice740 me renvoie le même code erreur. Tout même, merci pour le code, il peut être fort utile pour les autres cas.

Bonne continuation à tous.

[Patrice740]

Je reviens sur ce sujet pour livrer mon retour.

Après avoir testé les deux solutions, seule votre solution EricDgn fonctionne.
Je l'ai adaptée à mon interface, c'est vraiment nickel !! Encore merci.

Par contre, la vôtre Patrice740 me renvoie le même code erreur. Tout même, merci pour le code, il peut être fort utile pour les autres cas.

Bonne continuation à tous.

Avec quelle version d'Excel et quel OS ?
Chez moi, ça fonctionne avec Excel 2003, Excel 2007, Excel 2013 et Excel 2016 (32 bits) et W10 32 et 64 bits