toggleButton (du ruban) et VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à la communauté.
Te tente désespérément depuis trois jour (à coups de tuto et de PDF) à interagir antre deux "toggleButton" de mon ruban.
J'aimerais que, lorsqu'un est "activé", l'autre soit "désactivé".
J'ai donc, écris ça :
Code:

1 2 3 4 5 6 Sub TBAlphaCmd(control As IRibbonControl, pressed As Boolean) If pressed = True Then TBNumeric = Not pressed End If 'Application.ScreenUpdating = True End Sub
Et
Code:

1 2 3 4 5 6 Sub TBNumericCmd(control As IRibbonControl, pressed As Boolean) If pressed = True Then TBAlpha = Not pressed End If 'Application.ScreenUpdating = True End Sub
Et dans Custom UI Editor for Microsoft Office, j'ai :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <toggleButton id="TBAlpha" size="large" image="TriLettre" getPressed="Ribbon_GetPressed" label="Alphabétique" onAction="TBAlpha" /> <toggleButton id="TBNumeric" size="large" image="TriNombre" getPressed="Ribbon_GetPressed" label="Numérique" onAction="TBNumeric" />
Les images ne posent pas de problème, mais lorsque je "pousse" un Toggle ("TBAlpha"), il se pousse, mais si je pousse l'autre ("TBNumeric"), il se "pousse" sans "dépousser" l'autre...
Quelqu'un aurait une astuce, un conseil, une idée... Car je suis preneur...
Bien à toi, la communauté...
Denis...

Bonjour,
Je n'ai jamais utiliser de ToggleButon avec le ruban mais cet exemple avec deux ToggleButton ActiveX présents sur une feuille vous inspirera peut-être

Code placé dans le module de la feuille où se trouve les deux ActiveX
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub ToggleButton1_Click() Toggle Me.ToggleButton1, Me.ToggleButton2 End Sub Private Sub ToggleButton2_Click() Toggle Me.ToggleButton2, Me.ToggleButton1 End Sub Sub Toggle(oTgl_A As ToggleButton, oTgl_B As ToggleButton) oTgl_B.Enabled = Not oTgl_A.Value End Sub

26/10/2021, 15h36
DenisHen

Bonjour Maître Philippe (je dis Maître car j'ai résolu plusieurs de mes problèmes grâce à vos postes)
Je regarde ça et tiens au courant la communauté
Encore merci pour votre aide...
Denis...

Ben en fait, je n'ai pas tout compris...
J'ai donc traduit votre code comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Private TBAlpha As Boolean Private TBNumeric As Boolean Private Sub TBAlphaCmd_Click() Toggle Me.TBAlpha, Me.TBNumeric End Sub Private Sub TBNumericCmd_Click() Toggle Me.TBNumeric, Me.TBAlpha End Sub Sub Toggle(oTgl_A As ToggleButton, oTgl_B As ToggleButton) TBAlpha.Enabled = Not TBNumeric.Value End Sub
Je ne suis pas certain de mon explication.
J'aimerais, lorsque j'en active un des deux, l'autre s'inactive...

26/10/2021, 16h19
Philippe Tulliez

2 pièce(s) jointe(s)

Bonjour,

Citation:

J'aimerais, lorsque j'en active un des deux, l'autre s'inactive...

C'est exactement ce que fait le code publié

Illustration : Après avoir cliqué sur celui de gauche, celui de droite est inactif. Il suffit de cliquer à nouveau sur celui qui est actif pour libérer l'autre.
Pièce jointe 607493

[EDIT]
Remplacé le fichier qui boguait
26/10/2021, 16h28
DenisHen

Mille mercis Philippe pour ta réponse, mais ton fichier Excel ne fonctionne pas chez moi, et j'aimerais que les "Toggle" soit dans un ruban...
26/10/2021, 17h12
Philippe Tulliez
Bonjour,

Citation:

mais ton fichier Excel ne fonctionne pas chez mo

Mille excuses, j'ai déposé un classeur allégé des autres feuilles qui étaient présentes, sans effectuer de test après la suppression des feuilles, et donc à l'ouverture de celui-ci, il y a une erreur du fait que la feuille a activer n'est plus présente
Il y a lieu de supprimer la procédure présente dans le module du classeur (ThisWorkbook), voir ci-dessous, sauver le classeur, le fermer et réouvrir
Code:

1 2 3 Private Sub Workbook_Open() shtData.Activate End Sub
Citation:

et j'aimerais que les "Toggle" soit dans un ruban...

Comme je l'ai écrit dans ma première intervention, je n'ai jamais utiliser les ToggleButton dans un ruban. J'ai proposé des procédures d'ActiveX permettant de s'en inspirer

[EDIT]
Remplacé le fichier à télécharger dans le fil #5
26/10/2021, 17h18
DenisHen

Ok, j'ai bien compris l'appel de la feuille inexistante dans ton classeur...
En VBA et en ActiveX, je sais le faire. C'est justement l'interaction entre le VBA et le ruban que j'ai des soucis...
J'ai du mal à comprendre cette interaction...
Mais je te remercie beaucoup pour ton aide...
27/10/2021, 01h17
Jean-Philippe André

Salut,

ce que tu cherches à faire c'est Invalidate ton Ribbon :)
27/10/2021, 10h05
DenisHen

Bonjour Jean-Philippe.

Je cherche à "unpressed" un toggle lorsque je "presse" l'autre, et inversement.
27/10/2021, 16h08
Jean-Philippe André

Salut,

Tu trouveras un excellent tuto ici
https://silkyroad.developpez.com/excel/callbacks/

et le chapitre qui t'aidera plus particulierement
https://silkyroad.developpez.com/exc...backs/#LIII-15
27/10/2021, 16h23
DenisHen

Salut Jean-Philippe.
Mille mercis pour tes raccourcis, j'étais justement sur un autre tuto, mais ils n'expliquait pas grand chose.
Et il n'est pas expliquer comment "unpressed" un toggle dans le ruban.
27/10/2021, 16h34
Jean-Philippe André

Pour chacun de tes toggle button tu associes la propriété getPressed à une procédure.

Pour déclencher les getPressed, tu dois Invalidate ton ruban.

https://silkyroad.developpez.com/excel/ruban/#LV

Merci encore pour ton aide. Mais je n'arrive à rien.
Je me suis donc inspiré de ton lien pour écrire ceci dans mon ruban:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="tab1" label="Test" >
            <group id="GR01" label="Essai de checkbox">
               <checkBox id="CheckBox1"
                  label="Option1"
			onAction="Validation"  
                  getPressed="MacroGetPressed" />
		   <checkBox id="CheckBox2"
                  label="Option2"
			onAction="Validation"  
                  getPressed="MacroGetPressed" />
 
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Et ceci dans mon VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public MonRuban As IRibbonUI
'Callback for CheckBox1 getPressed
    'Définit le statut de la case à cocher
Sub MacroGetPressed(control As IRibbonControl, ByRef returnedVal)
    returnedVal = True
End Sub
'Callback for CheckBox1 onAction
    'Renvoie la valeur de la case à cocher lorsque vous cliquez dessus
Sub Validation(control As IRibbonControl, pressed As Boolean)
    Select Case control.ID
        Case "CheckBox1"
            If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox2"
        Case "CheckBox2"
            If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox1"
    End Select
End Sub

je dois me planter quelque part, mais je n'arrive pas à trouver où.

Ce qui est important ici c'Est de comprendre que si tu mets une seule Sub Validation, tu dois gérer le cas de figure.

Si je garde le contenu XML du ruban, et que je me concentre uniquement sur la partie VBA, il faudra ici avoir

public Bouton1Enfonce as Boolean

Code:

1
2
3
4
5
6
7
8
Sub MacroGetPressed(control As IRibbonControl, ByRef returnedVal)
    Select Case control.ID
        Case "CheckBox1"
    returnedVal = Bouton1Enfonce 
        Case "CheckBox2"
            returnedVal = Not Bouton1Enfonce
    End Select
End Sub

puis

Code:

1
2
3
4
5
6
7
8
9
10
Sub Validation(control As IRibbonControl, pressed As Boolean)
    Select Case control.ID
        Case "CheckBox1"
            Bouton1Enfonce  = pressed
            If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox2"
        Case "CheckBox2"
            Bouton1Enfonce  = Not pressed
            If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox1"
    End Select
End Sub

en sachant que tu peux simplifier avec MonRuban.Invalidate

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Validation(control As IRibbonControl, pressed As Boolean)
    Select Case control.ID
        Case "CheckBox1"
            Bouton1Enfonce  = pressed          
        Case "CheckBox2"
            Bouton1Enfonce  = Not pressed            
    End Select
If Not MonRuban Is Nothing Then 
    MonRuban.Invalidate
End If
End Sub

Salut, et encore merci pour ton aide et tes explications.
Je commence tout doucement à saisir mon problème.
Je n'ai donc pas touché au contenu XML et ai copier ce code dans le module VBA :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Option Explicit Public MonRuban As IRibbonUI Public Bouton1Enfonce As Boolean Sub MacroGetPressed(control As IRibbonControl, ByRef returnedVal) Select Case control.ID Case "CheckBox1" returnedVal = Bouton1Enfonce Case "CheckBox2" returnedVal = Not Bouton1Enfonce End Select End Sub Sub Validation(control As IRibbonControl, pressed As Boolean) Select Case control.ID Case "CheckBox1" Bouton1Enfonce = pressed If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox2" Case "CheckBox2" Bouton1Enfonce = Not pressed If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "CheckBox1" End Select End Sub
Mais après avoir mis des "points d'arrêt" pour observer le comportement du code, la macro "MacroGetPressed" ne s'exécute jamais.
Et là, j'avoue ne pas comprendre.
Mais je me demande si ce ne serait pas plus simple (pour moi) de créer deux "onAction" différents dans le contenu XML ?

28/10/2021, 13h56
Jean-Philippe André

Salut,
oui, c'est ce qui se fait normalement ^^
28/10/2021, 15h28
DenisHen

Salut.
Ok, je vais donc changer mon fusil d'épaule et créer un "onAction" par "togglebutton"...
Merci encore pour ton aide...
Je me permettrais de revenir ici si je n'y arrive pas.
Denis...

1 pièce(s) jointe(s)

Salut.
En fait, après quelques heures d'études des codes de Jean-Philippe (j'en ai appris déjà beaucoup), je pense que je me suis mal exprimé.
Je souhaite qu'il y ai toujours un des deux Toggle de pressé, si je presse l'un, l'autre ne le sera plus et inversement.
En gros, mes deux Toggles me servent à faire un tri numérique ou alphabétique. Donc, il doit toujours il y avoir un des deux de pressé.
Je me suis inspiré d'autres codes glanés sur le NET, j'ai donc réécris le contenu XML

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="loadRibbon">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="tab1" label="DenCad" >
            <group id="GR01" label="Toggle">
			<toggleButton 
				id="TBNum" 
				size="large"
				image="TriNombre"
				getPressed="MacroGetPressed"	 
				label="Tri numérique" 
				onAction="TriNum" />
			<toggleButton 
				id="TBAlpha" 
				size="large"
				image="TriLettre"
				getPressed="MacroGetPressed" 
				label="Tri aphabétique" 
				onAction="TriAlpha" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

et le module VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Public MonRuban As IRibbonUI
Private TBNum As Boolean
Private TBAlpha As Boolean
Public TBPressed As Boolean
Dim TBReponse As Boolean
Public TriSelect As String
Private Sub loadRibbon(ribbon As IRibbonUI)
    Set MonRuban = ribbon
    ResetRibbon
End Sub
Sub MacroGetPressed(control As IRibbonControl, ByRef returnedVal)
    Select Case control.ID
        Case "TBNum"
            If returnedVal = True Then
                MonRuban.InvalidateControle "TBAlpha"
            End If
        Case "TBAlpha"
            If returnedVal = True Then
                MonRuban.InvalidateControle "TBNum"
            End If
    End Select
    If Not MonRuban Is Nothing Then MonRuban.Invalidate
End Sub
Sub TriNum(control As IRibbonControl, pressed As Boolean)
    If pressed = True Then TriSelect = "Num"
End Sub
Sub TriAlpha(control As IRibbonControl, pressed As Boolean)
    If pressed = True Then TriSelect = "Alpha"
End Sub
Sub ResetRibbon()
   If Not (MonRuban Is Nothing) Then
      MonRuban.Invalidate
   End If
End Sub

Et encore merci...
J'ai joins mon XLSM "test" au cas où il pourrait servir.
Pièce jointe 607647

Salut à la communauté...
Après des heures et des heures de recherches et de tentatives vaines (parfois "débiles" que je les regarde maintenant), j'ai fini par réussir.
Je poste donc mes codes et mon fichier "test" pour que ça puisse servir à d'autres...
Voici le contenu XML :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="loadRibbon">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="tab1" label="DenCad" >
            <group id="GR01" label="Toggle">
			<toggleButton id="TBNum" 
				size="large"
				image="TriNombre"
				getPressed="Ribbon_GetPressed"	 
				label="Tri numérique" 
				onAction="Ribbon_OnAction_Press" />
 
			<toggleButton id="TBAlpha" 
				size="large"
				image="TriLettre"
				getPressed="Ribbon_GetPressed" 
				label="Tri aphabétique" 
				onAction="Ribbon_OnAction_Press" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Voici le code VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Public MonRuban As IRibbonUI
Public TBNumVal As Boolean
Public TBAlphaVal As Boolean
Public TBReponse As String
Sub loadRibbon(ribbon As IRibbonUI)
    Set MonRuban = ribbon
    ResetRibbon
End Sub
Sub Ribbon_GetPressed(control As IRibbonControl, ByRef returnValue)
    Select Case control.ID
        Case "TBAlpha"
            returnValue = TBAlphaVal
        Case "TBNum"
            returnValue = TBNumVal
    End Select
End Sub
Sub Ribbon_OnAction_Press(control As IRibbonControl, pressed As Boolean)
    ResetRibbon
    Select Case control.ID
        Case "TBAlpha"
            TBAlphaVal = True
            TBReponse = "Alpha"
            If TBAlphaVal Then TBNumVal = Not pressed
        Case "TBNum"
            TBNumVal = True
            TBReponse = "Num"
            If TBNumVal Then TBAlphaVal = Not pressed
    End Select
    'If Not (MonRuban Is Nothing) Then MonRuban.Invalidate
    ResetRibbon
End Sub
Sub ResetRibbon()
   If Not (MonRuban Is Nothing) Then
      MonRuban.Invalidate
   End If
End Sub

Mais il y a un truc que je ne comprend pas, ça ne fonctionne pas "toujours"...
Je lance Excel, tout fonctionne, je sors, je relance Excel, ça ne fonctionne plus... Et ainsi de suite mais de façon aléatoire, ce n'est pas une fois sur deux...
Là j'avoue que la logique immuable de l'informatique me désarçonne...
Mais je remercie la communauté pour son aide, elle m'a beaucoup aidé...
Bien à vous et à la communauté.
Denis...

Voir 40 message(s) de cette discussion en une page