Discussion :

[xenondeele]

Bonjour à tous

J'essaie en vain depuis ce matin de personnaliser le menu contextuel du clic droit.

J'ai essayé tous les codes que j'ai trouvé sur internet ... en gros on créé un objet bouton qu'on rajoute à la commandbars("cell")

Code :

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

1
2
3
4
5
6
7
8
9
10
Set cmdBtn = Application.CommandBars("Cell").Controls.Add(Temporary:=True)
 
 
With cmdBtn
    .Caption = "MyMacro"
    .Style = msoButtonCaption
    .OnAction = "test"
    .Enabled = True
    .Visible = True
End With

Aucun effet chez moi ... Est-ce que cela pourrait tenir à la version d'excel ( 2016 pro ) ?

Merci d'avance de vos réponses,

[patricktoulon]

re
ben non c'est pas a cause de ta version mais du fait que tu fait un add controls temporaire mais tu ne précise pas le type de msocontrols ca risque pas de faire quoi que se soit
en gros tu ajoute du vent temporairement ( le vent tu le vois pas)
ensuite beaucoup d'inutilité dans ton code (voir mes commentaires)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
    With Application.CommandBars("Cell")
        .Reset 'on la remet a l'origine au cas ou il y aurait eu deja la modif
        With .Controls.Add(msoControlButton, , , 1, Temporary:=True) '1 pour le before je te place ton bouton en haut du menu (plus pratique pour un menu perso hein ??)
            .Caption = "MyMacro"
            '.Style = msoButtonCaption 'pas la peine si tu ne met pas de faceid ca c'est valable pour les modif dans la commandbars ruban pour les contextuels c'est inutile 
            .FaceId = 256 ' facultatif
            .OnAction = "ma_macro"
            '.Enabled = True'pas la peine c'est a true automatiquement
            '.Visible = True'pas la peine c'est a true automatiquement
        End With
    End With
End Sub

[xenondeele]

Non désolé ça ne marche pas mieux,

Je te joins un fichier que tu voies ...

Merci de ton aide :-)

[patricktoulon]

re
ben oui la bonne blague
comment veux tu que workbook.activate face son boulot il est activé directement a l'ouverture "Open" ca risque pas de déclencher la création du bouton supplémentaire
activate sert uniquement de bascule entre classeurs
alors
dans le thisworkbook

Code :

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

1
2
3
4
5
6
7
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_open()
    test
End Sub

et oui j'ai ajouté la destruction du bouton a la fermeture du fichier sinon tu garde ce bouton evita æternam dans tout tes fichiers
on aurait pu aussi utiliser la sub Auto_Open dans le module thisworkbook
bref

[xenondeele]

J'avais déjà testé avec worbook.open ( c'est d'ailleurs le premier code que j'avais trouvé )

Je t'ai remis le classeur avec le code et une copie d'écran sur la feuille "copie écran" ...

Le résultat n'est pas plus probant ...

Pour information quand tu mets un msgbox en début de macro "test" ... la macro se déclenche bien même sur le activate ...

Merci à toi :-)

[patricktoulon]

ton fichier tel que tu la donné

maintenant si c'est pour une des autres colonnes il semblerait qu'il y ai conflit avec les tableau structurés je dis ca mais j'ai pas approfondi la question
est ce que ce tableau en est un ???

EDIT:
oui en fait ca en est un c'est donc pas le menu cell mais un autre