MFC sur clic droit

Jiheme · 30 Mars 2008

Bonsoir à tous

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

Merci

A+

Cousinhub · 30 Mars 2008

Re : MFC sur clic droit

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

Code:

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

Code:

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

Jiheme · 30 Mars 2008

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 · 30 Mars 2008

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 · 30 Mars 2008

Re : MFC sur clic droit

Re à tous

Merci j'essaie cela demain.

A+

Jiheme · 5 Avril 2008

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 · 26 Avril 2008

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

Code:

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

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

JCGL · 26 Avril 2008

Re : MFC sur clic droit

Bonjour à tous,
Salut BH²,
Re Jiheme ,

Je pense que :

Code:

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 · 26 Avril 2008

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 · 26 Avril 2008

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 · 26 Avril 2008

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 · 26 Avril 2008

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+

MFC sur clic droit

Jiheme

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Jiheme

XLDnaute Accro

Jiheme

XLDnaute Accro

Jiheme

XLDnaute Accro

JCGL

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

JCGL

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

Discussions similaires