CommandBars => Control enfoncé ?

Version imprimable

Bonjour à tous,

Je cherche à savoir si une commande de ma barre d'outils (du ruban en fait) est enfoncé.
Quelle propriété peux me donner cette information ?

Code:

1
2
3
4
5
6
7
8
9
10
 
    For Each ctl In Application.CommandBars("Standard").Controls
         If ctl.Caption = "&Format Painter" Or ctl.Caption = "Reproduire la mise en &forme" Then
            If ctl.enabled = True Then      ' => Mon problème est ici
                MsgBox "je suis enfoncé"
            Else
                MsgBox "je ne suis PAS enfoncé"
            End If
        End If
    Next

Merci pour votre aide :)

24/08/2017, 11h51
wouana19

En fait, j'aurai besoin de savoir si la commande "Reproduire la mise en forme" est activée ou pas au lancement d'une autre macro.

Je suis parti de l'idée de savoir si la commande est enfoncée dans le ruban, mais il y a peut-être une autre méthode ? ... certainement plus simple :-)

Merci d'avance.
24/08/2017, 11h53
Invité

Citation:

Envoyé par wouana19

Bonjour,

Il vous faut mettre un "flag" dans une cellule et la tester.
24/08/2017, 12h19
wouana19

Je ne suis pas certain de comprendre

Le problème est que la fonctionnalité "Reproduire la mise en forme" peut se désactiver de plusieurs manières.

Si l'utilisateur clic une seule fois sur la commande, il pourra l'utiliser une fois (désactivation automatique)
Si l'utilisateur effectue un double clic, il peut désactiver la fonction en recliquant dessus
Si l'utilisateur effectue un double clic, il peut désactiver en appuyant sur [ESC]
si l'utilisateur insère un object
... tout ce que j'oublie et que je ne sais pas..
Et bien entendu lorsqu'il ferme le fichier

Donc tu veux dire qu'il faut que je note une info dans une cellule lorsqu'il clic sur la commande "reproduire la mise en forme", et que je teste tout les moyens de sortie, et que je modifie le contenu de ma cellule ?
24/08/2017, 12h52
Invité

Citation:

Envoyé par wouana19

Si les deux boutons enclenchent deux macros différentes, une cellule peut être renseignée en fin de programme pour indiquer la dernière action réalisée. Pour cela, il faut que les événements lancent des macros qui se situent dans un module standard par exemple.
24/08/2017, 14h17
wouana19

Je vois maintenant ce que tu veux dire.

Le soucis est qu'une des commandes fait partie des commandes d'origine d'Excel, et que ce n'est pas moi qui la lance par macro. Donc je ne peux pas créer un "Flag". En tout cas il me semble pas.

J'arrive à savoir si le bouton Gras est pressé

Code:

If Application.CommandBars.GetPressedMso("Bold") = True Then

Mais bien sûr cela ne fonctionne pas avec

Code:

If Application.CommandBars.GetPressedMso("FormatPainter") = True Then

Visiblement je ne suis pas le seul à avoir ce problème : voir ici le lien

Pour mieux expliquer mon problème, lorsque je clic sur une cellule, je veux qu'une information remonte dans un ruban personnalisé. ça j'arrive le faire sans problème.
Bien entendu, ma je dois faire une mise à jour du ruban avec iRibbon.Invalidate
Mon problème est qu'en lançant cette commande, le pinceau se désactive tout seul. Grrrr.

Donc en testant si il est pressé, je modifierai mon code en conséquence.

Je vais y arriver :-)
24/08/2017, 15h32
wouana19

Bon, je me répond personnellement, ;)

A la place de iRibbon.Invalidate j'ai mis iRibbon.InvalidateControl "MonControl"... mais mon pinceau se désactivait toujours...

Puis j'ai trouvé ça sur le web.
https://social.msdn.microsoft.com/Fo...?forum=worddev

Visiblement lorsque l'on utilise l'event "WindowSelectionChange" le "FormatPainter" se désactive, est c'est comme ça ! :?

La seule solution que j'ai est de reprogrammer entièrement la commande du pinceau pour arriver à mes fins. Mais cela me paraît compliquer à mettre en œuvre, surtout pour gérer le double clic (celui qui me pose problème).

à moins que vous ayez une idée ?