Dim Cbconsult_Text As String
Dim Ruban As IRibbonUI
Sub CBconsult_Change(control As IRibbonControl, text As String)
Cbconsult_Text = text
If Not Ruban Is Nothing Then Ruban.InvalidateControl "Validation"
End Sub
Sub Validconsult(ByVal control As IRibbonControl)
MsgBox "Texte du combobox : " & Cbconsult_Text
End Sub
Sub Get_Visible(control As IRibbonControl, ByRef returnedVal)
If control.ID = "Validation" Then
returnedVal = Cbconsult_Text <> vbNullString
End If
End Sub
Sub CBconsult_GetItemCount(control As IRibbonControl, ByRef returnedVal)
returnedVal = Choix_Courriel
End Sub
Sub CBconsult_GetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = Choix_Courriel(index)
End Sub
Sub Load_Ribbon(ribbon As IRibbonUI)
Set Ruban = ribbon
End Sub
Function Choix_Courriel(Optional ByVal index As Integer = -1)
Dim List_Courriel: List_Courriel = Array( _
"Courriel consultation par lot", _
"Courriel consultation BET acoustique", _
"Courriel entreprise retenu", _
"Courriel proposition de rendez-vous", _
"Courriel confirmation de rendez-vous", _
"Courriel remerciement d'avoir répondu", _
"Courriel non retenu")
If index = -1 Then
Choix_Courriel = UBound(List_Courriel)
Else
Choix_Courriel = List_Courriel(index)
End If
End Function