Option Explicit
Public MonRuban As IRibbonUI
Public Tableau() As String
'Callback for customUI.onLoad
'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
Set MonRuban = ribbon
End Sub
'Callback for Combo1 getItemCount
Sub NbItemCombo(control As IRibbonControl, ByRef returnedVal)
'Définit le nombre d'éléments dans la combobox
returnedVal = UBound(Tableau)
End Sub
'Callback for Combo1 getItemLabel
Sub ComboLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
'Alimente le Combobox à partir des données du tableau
returnedVal = Tableau(index + 1)
End Sub
'Callback for Combo1 onChange
Sub ChangeCombo1(control As IRibbonControl, text As String)
'Renvoie l'élément sélectionné dans la combobox
MsgBox text
End Sub