Discussion :

[DenisHen]

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 :

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

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 :

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

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 XML :

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

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...

[Philippe Tulliez]

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 :

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

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

[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...

[DenisHen]

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

Code :

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

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...

[Philippe Tulliez]

Bonjour,

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.



[EDIT]
Remplacé le fichier qui boguait

[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...