[RESOLU] : Bouton radio en XML pour Excel (ruban)

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="objRuban">
   <!-- Personnalisation du ruban pour boutons radio -->
  <ribbon startFromScratch="false">
    <tabs> 
      <tab id = "tab1" label="Perso" insertAfterMso="TabView">
        <group id="groupe1" >
          <button id="Button1" label="Radio1" 
              getImage="Button1_getImage"
              onAction="Button1_OnAction" size="normal" />
          <button id="Button2" label="Radio2"
              getImage="Button2_getImage"
              onAction="Button2_OnAction" size="normal" />
        </group>   
      </tab>
    </tabs>
  </ribbon>
</customUI>

Public Ruban As IRibbonUI
Public blnRadio(1 To 2) As Boolean

'Callback for customUI.onLoad
Sub objRuban(ribbon As IRibbonUI)
Set Ruban = ribbon
blnRadio(1) = True
Ruban.InvalidateControl "Button1"
End Sub

'Callback for Button1 getImage
Sub Button1_getImage(control As IRibbonControl, ByRef returnedVal)
If blnRadio(1) Then
  returnedVal = "ActiveXRadioButton"
Else
  returnedVal = "ShapeDonut"
End If
End Sub

'Callback for Button2 getImage
Sub Button2_getImage(control As IRibbonControl, ByRef returnedVal)
If blnRadio(2) Then
  returnedVal = "ActiveXRadioButton"
Else
  returnedVal = "ShapeDonut"
End If
End Sub


'Callback for Button1 onAction
Sub Button1_onAction(control As IRibbonControl)
blnRadio(1) = True
blnRadio(2) = False
Ruban.InvalidateControl "Button1"
Ruban.InvalidateControl "Button2"

'--- code de traitement ---

End Sub

'Callback for Button2 onAction
Sub Button2_onAction(control As IRibbonControl)
blnRadio(1) = False
blnRadio(2) = True
Ruban.InvalidateControl "Button1"
Ruban.InvalidateControl "Button2"

'--- code de traitement ---

End Sub