Discussion :

[Thoms_69]

Bonjour le forum,

J'ai créé un menu contextuel pour faire des modifs sur le graphique sélectionné.
Problème : je ne veux activer ce menu que lorsqu'un objet graphique (onglet ou incorporé) est sélectionné.
J'ai essayé typename, typeof, et selection.name, mais les résultats dépendent de ce qui est sélectionné.
Par exemple, si je sélectionne la légende, comment faire, sans boucle ou comparaison à un tableau que je suis sur l'objet "Chart1", de façon à ne modifier que les paramètres de ce graphiques ?

Merci pour votre aide,
Thom's

[Daniel.C]

Bonjour,

Dans le module ThisWorkbook, mets :

Code :

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

1
2
3
4
5
6
Dim ClassModule As New EventClassModule, Teste As Boolean
 
Sub InitializeChart()
    Set ClassModule.ChartClass = _
        Sheets(1).ChartObjects(1).Chart
End Sub

Dans un module standard, mets :

Code :

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

Public Teste As Boolean

Crée un module de classe, nomme-le "EventClassModule"

Dans ce module, mets :

Public WithEvents ChartClass As Chart

Code :

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

1
2
3
4
5
Private Sub ChartClass_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    'mets le menu contextuel
    Teste = True
    Exit Sub
End Sub

J'ai mis en commentaire les lignes où tu dois insérer ou ôter tes commandes du menu contextuel.

[NVCfrm]

Bonjour,

...Par exemple, si je sélectionne la légende, comment faire, sans boucle ou comparaison à un tableau que je suis sur l'objet "Chart1", de façon à ne modifier que les paramètres de ce graphiques ?

En plus de la solution de Daniels te permettant une gestion plus fine de pas mal de choses, tu as ActiveChart.

Code :

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

1
2
3
4
5
6
7
8
 
    Dim c As Chart
    Set c = ActiveChart
    If c Is Nothing Then
        '...
    Else
        '...
    End If

[Thoms_69]

Bonjour et merci pour vos réponses.

J'ai dû mal m'exprimer, car je voudrais ceci pour un graphique quelconque sur une feuille quelconque. Donc le InitializeChart() doit être un peu plus compliqué !
J'ai cependant essayé la méthode de Daniel qui avait un fonctionnement erratique. Tout rentre dans l'ordre en utilisant ChartClass_Activate()

Entretemps, j'ai réfléchi (si, si !) : j'ajoute mon sous-menu contextuel à celui du menu graphique, lequel n'apparaît que quand on est sur un graphique ! Donc inutile de savoir si on en a sélectionné un ! Il suffit d'ajouter le sous-menu à l'ouverture du classeur et de resetter la barre à la fermeture.

Mon problème n'en était pas un et se trouve résolu.

Il me reste à trouver le menu contextuel d'une feuille graphique, celui de l'objet incorporé (Application.CommandBars("Object/Plot").Controls.Add) ne donne rien sur la feuille graphique.

Merci encore.
Thom's