Discussion :

[Blondin77]

Bonjour,

j'ai insérer un nouveau élément du menu contextuel dans une macro pour excel en utilisant ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Function MenuCell(stCde As String, stMess As String)
    Dim Mc As CommandBarControls
    Dim Bo As CommandBarButton
 
    Set Mc = CommandBars("Cell").Controls
    Set Bo = Mc.Add(msoControlButton, before:=1, Temporary:=True)
    Bo.Caption = stMess
    Bo.OnAction = stCde
End Function

je cherche à insérer une icône d'une ressource pour ma nouvelle entrée mais je n'arrive pas à trouver une solution intéressante.

Pouvez-vous m'aider ?

merci d'avance.

[wilfried_42]

Bonjour

Voici une macro qui me permet de generer un menu Popup avec des images comme icones (en rouge ce qui te concerne) vois si ca peut t'aider

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
19
20
21
22
23
24
Sub init_bar02()
    Dim sm As Variant, cel As Range, Pict As IPictureDisp
    On Error Resume Next
    CommandBars("bar02").Delete
    On Error GoTo 0
    Set bar_02 = Application.CommandBars.Add("bar02", msoBarPopup)
    Set sm = bar_02.Controls.Add(msoControlButton, 1, , , True)
    With sm
        .Caption = "Pas d'image"
        .Tag = ""
        .OnAction = "bar_02_go"
    End With
    For Each cel In Range("villes")
        Set Pict = stdole.StdFunctions.LoadPicture(cel.Offset(0, 1))
        Set sm = bar_02.Controls.Add(msoControlButton, , , , True)
        With sm
            .Picture = Pict
            .Caption = cel.Value
            .Tag = cel.Value
            .OnAction = "bar_02_go"
            .Style = msoButtonIconAndCaption
        End With
    Next
End Sub

Bonne journée

[Invité]

Bonjour

Pour les barres de commandes et menu contextuel, voici un article à lire : http://starec.developpez.com/tuto/barrecommande/, je sais c'est sous Access, mais c'est la même bibliothèque qu'Excel.

Sinon, va faire un tour dans la partie contribution du forum Excel, mon ami Ouskel'n'or a mis d'excellentes contributions pour la réalisation de menus.

Starec

[ouskel'n'or]

Et tu as même ça pour Excel ici http://www.developpez.net/forums/sho...d.php?t=461562

[Abed_H]

Bonjour
c'est avec La propriété FaceId qu'on peut contrôler l'apparence de l'mage.
voici un exemple qui montre comment ajouter un bouton au clic droit avec son numéro d'identification (ID) est 331

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
        Application.CommandBars("Cell").Reset
        With Application.CommandBars("Cell").Controls.Add
            .Caption = "Nom du Clic Droit"
            .FaceId = 331   cette propriété qui définit le numéro d'identification de l'image 
            .OnAction = "Ta Macro"
        End With
    End Sub

Bonne journée à tous le monde

Abed_H

[Blondin77]

merci pour toutes ces réponses ... je m'en vais les essayer et lire les articles correspondants.