Discussion :

[Gautheron]

Bonjour,

j'ai créé un menu contextuel (clic droit de souris) pour me permettre de multiplier les actions possibles sur des figures geométiques.

Cependant, autant j'arrive à créer et faire lancer la macro lié au menu contextuel, autant je n'arrive pas à identifier la figure sur laquelle j'ai faitr le clic droit.
Ca doit être bete comme chou mais je rame...

MErci de votre aide

[SilkyRoad]

Bonsoir

Comment récupérer le nom de la forme sur laquelle j'ai cliqué ?

bonne soirée
michel

[Gautheron]

Bonjour SilkyRoad,

malheureusement

Code :

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

figure_ref = application.caller

ne marche pas dans ce cas là car je n'appele pas la macro par un click gauche, mais par le menu contextuel du click droit.

L'astuce à laquelle je pensais est d'identifier la figure de la page sélectionnée. Mais le code

Code :

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

if fig.select = true then figure_ref = fig.name

ne marche pas non plus...

[SilkyRoad]

Je ne comprend pas ce que manipulations que tu effectues.
A quoi correspondent fig et figure_ref ?

Peux tu être plus précis :
Comment réalises tu ton menu contextuel ? Comment le gères tu ?

[Gautheron]

Je crée un menu contextuel à l'ouverture du fichier par la fonction que j'appelle alors:

Code :

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
 
Private Sub Workbook_Open()
       MenuCell "ModifTexteFIG", "Modification des données de la figure"
End Sub
 
Function MenuCell(stCde As String, stMess As String)
    Dim mc As CommandBarControls
    Dim bo As CommandBarButton   
    If CommandBars("Shapes").Controls(1).Caption <> stMess Then
    stCdefin = stCde & "Fig"
    Testa = CommandBars("Shapes").Controls(1).Caption
        Set mc = CommandBars("Shapes").Controls
        Set bo = mc.Add(msoControlButton, Temporary:=True, Before:=
        bo.Caption = stMess
        bo.OnAction = stCdefin
    End If
 
End Function

Ensuite je fais un travail graphique qui a des répercussions sur des données casé dans des tableaux. Donc j'utilise différentes macro qui interdit les modif de texte, de forme, etc, sans debloquer la feuille par exemple.
Ceci pour provoquer le reflexion de faire un click droit sur la figure, pour choisir dans le menu contextuel l'option voulue. Ici : Modification du texte, par exemple. (Le choix de cette option appelle donc la procédure ModifTexteFIG)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ModifTexteFIG()
MsgBox Application.Caller     '-----> BUGG
 
    For Each fig In ActiveSheet.Shapes
         If fig.Select = true Then  '---> ne marche pas non plus car le programme sélectionne automatiquement la figure qu'il interroge, sans meme bugguer....
            texte_initiale = fig.TextFrame.Characters.Text
            Exit Sub
        End If
end sub

Y vois tu plus clair Michel ?