MFC sur clic droit

[Jiheme]

Bonsoir à tous

Quelqu'un saurait-il si l'on peut et comment ajouter le menu MFC sur le clic droit ?

Merci

A+

 

[Cousinhub]

Re : MFC sur clic droit

Bonjour,
tu peux insérer ce code dans le workbook open, par exemple :

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Format conditionnel"
.BeginGroup = True
.OnAction = "AfficheMFC"
End With
End Sub

Sub AfficheMFC()
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Et pour réinitialiser le menu d'origine, tu mets ceci dans le workbook before close

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

 

[Jiheme]

Re : MFC sur clic droit

Bonsoir bhbh, re à tous

Est ce que si je fais une macro complémentaire avec ce code je peux l'avoir de manière permanente, désolé mais je suis accro...

Ou bien est un autre code ?

Merci

A+

 

[Cousinhub]

Re : MFC sur clic droit

Bonjour,
Quitte excel
met ce code dans le répertoire :

C:\Documents and Settings\ton_nom\Application Data\Microsoft\Macros complémentaires

Ensuite, démarre Excel, tu fais Outils/Macros complémentaires, tu sélectionnes mefc_contextuel et Ok
Normalement, tu auras ce raccourci en permanence

 

[Jiheme]

Re : MFC sur clic droit

Re à tous

Merci j'essaie cela demain.

A+

 

[Jiheme]

Re : MFC sur clic droit

Re bhbh, bonjour le forum

Bhbh j'ai pris le temps de mettre en place cette macro complémentaire et c'est au poil !

Merci beaucoup.
Je repars au boulot

A+

 

[Jiheme]

Re : MFC sur clic droit

Re à tous

Je relance ce fil car après un essai sur ce cas de figure :

https://www.excel-downloads.com/threads/mfc-sur-colonnes-non-adjacentes.95736/

je me suis aperçu que la macro complémentaire déclenchait une "erreur 1004".

"La méthode Show de la class Dialog a échoué"
Et si je clique sur débogage voila ce qu'il y a dans le code VBA du .xla

Sub AfficheMFC()
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Quelqu'un a t-il une idée ?
Merci
A+

 

[JCGL]

Re : MFC sur clic droit

Bonjour à tous,
Salut BH²,
Re Jiheme ,

Je pense que :

Sub AfficheMFC()
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

doit être placé dans un module et enlevé du ThisWorkBook_Open

A+

Edition : Dans le premier code de BH². Dans la *.xla, il est placé dans un module et je ne rencontre pas d'erreur avec cette *.xla

 

[Jiheme]

Re : MFC sur clic droit

Bonjour JCGL,

C'est déjà dans un module, celui du fichier .xla

Je crois que je vais devoir abandonner cette macro complémentaire!

A+

 

[JCGL]

Re : MFC sur clic droit

Re,

Nous avons posté en même temps.
Comme dit précédemment, je ne rencontre pas de problème avec la *.xla

A+

Edition : Salut BH² ;-)

 

[Cousinhub]

Re : MFC sur clic droit

Bonjour JM
Salut JC

@JM : pas trop la g.... de bois?

Pour ma part, je n'ai jamais rencontré de problème....
Uniquement sur ce fichier, ou sur tous, maintenant?

 

[Jiheme]

Re : MFC sur clic droit

Re à tous

Même pas mal aux cheveux

Pour l'instant sur deux fichiers, mais je ne me souviens plus si il y avait un rapport quelconque(style de MFC ou autre) et en fait quand j'avais eu le premier problème, j'avais désactivé le XLA car j'étais dans le jus pour le boulot et ce matin je l'ai réinstallé pour le post cité + ht. Et boum.


je vous laisse, je vais en boire un petit
A+