un menu dans chaque feuille (ou presque)

[JACMIC]

Bonsoir à tous,

Un question me trotte dans la tête et vous avez sans doute la réponse.

Dans certaines de mes feuilles, que j'ai besoin d'imprimer, de sauvegarder, ou de transférer les données dans d'autres feuilles, j'ai créé des boutons.

ma question est : Est-il possible dans chacune de ces feuilles creer un menu tel celui que l'on utilise dans excel pour faire ces opérations.
Ce serait plus discret que ces boutons
Chacune de ces feuilles auraient un menu car les macros associées aux boutons varient suivant les feuilles

Merci pour votre réponse

Jacmic

 

[jp14]

Re : un menu dans chaque feuille (ou presque)

Bonjour

Une piste utiliser un menu contextuel

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
       Cancel As Boolean)
Dim icbc As Object

For Each icbc In Application.CommandBars("cell").Controls
      If icbc.Tag = "brccm" Then icbc.Delete
Next icbc
    If Not Application.Intersect(Target, Range("c3:z62")) _
        Is Nothing Then
            With Application.CommandBars("cell").Controls _
                .Add(before:=6, _
                temporary:=True)
           .Caption = "macro1"
           .OnAction = "macro1"
           .Tag = "brccm"
        End With
    End If
End Sub

A copier dans la feuille
Caption : description de la macro
Onaction : nom de la macro

L'utilisateur obtiendra s'il fait un clic droit dans la zone c3:z62


JP