Ruban - boutons à bascule

[apnart]

Bonjour,

ça fait un moment que je cherche en vain, je viens donc vous exposer mon soucis.

Dans un ruban personnalisé je voudrais mettre une série de 4 boutons "à bascule", c'est à dire que lorsqu'on clique sur 1 des boutons, les 3 autres remontent (donc toujours 1 seul enfoncé).

Sur des docs j'ai trouvé ça...

Pour le ruban :

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"onLoad="objRuban" >
<ribbon startFromScratch="false">
<tabs>
<tab id="Tab01" label="Test">
<group id="GR01" label="Essais de buttonGroup et toggleButton">
<buttonGroup id="BG01">
<toggleButton id="TB01" imageMso="FormatPainter"
getPressed="ProcPressed"
onAction="MaProcedure"/>
<toggleButton id="TB02" imageMso="Copy"
getPressed="ProcPressed"
onAction="MaProcedure"/>
<toggleButton id="TB03" imageMso="Cut"
getPressed="ProcPressed"
onAction="MaProcedure"/>
</buttonGroup>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Pour VBA :

Option ExplicitPublic MonRuban As IRibbonUI
'Callback for customUI.onLoad
Sub objRuban(ribbon As IRibbonUI)
Set MonRuban = ribbon
End Sub
'Callback for toggleButton.getPressed
Sub ProcPressed(control As IRibbonControl, ByRef returnedVal)
'returnedVal=
End Sub
'Callback for toggleButton.onAction

Sub MaProcedure(control As IRibbonControl, pressed As Boolean)
MsgBox control.ID & vbCrLf & pressed
End Sub

ça me sélectionne ou désélectionne les boutons, mais 1 par 1, ça n'a pas d'influence sur les autres...

Si vous avez des idées, merci d'avance.

Bruno.

 

[apnart]

Re : Ruban - boutons à bascule

Personne ne "joue" avec les rubans ?

 

[apnart]

Re : Ruban - boutons à bascule

Allez, je me permet un dernier p'tit up

au cas où cette demande n'aurait pas été vue...