XL 2016 Barre de Menus

<!-- Created with IDBE RibbonCreator 2021 (Version: 1.1001) -->
<!--                http://www.RibbonCreator2021.com               -->

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CustomUIOnLoad">
    <!--creatorRiBBonX application V 5.1 10-06-2023-->
    <!--DEVELOPPED BY patricktoulon  a 10-06-2023-->
    <!--project Ribbon name :PROJET MADMAX33-->
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tab_1" label="AIA DE BORDEAUX">
                <group id="group_0" label="Groupe N° 1">
                    <button id="button_1" onAction="button_1_Click" tag="QUITTER" label="QUITTER" image="Image0" size="large"/>
                    <button id="button_2" onAction="button_2_Click" tag="IMPRIMER" label="IMPRIMER" image="Image1" size="large"/>
                    <separator id="separator_1"/>
                    <button id="button_3" onAction="button_3_Click" label="RAZ" tag="RAZ" image="Image2" size="large"/>
                    <comboBox id="comboBox_1" onChange="comboBox_1_onChange" invalidateContentOnDrop="true" getItemCount="comboBox_1_GetItemCount" getItemLabel="comboBox_1_GetItemLabel" label="Choix du ban " image="Image3"/>
                    <separator id="separator_2"/>
                    <button id="button_4" onAction="button_4_Click" label="Vers etCoBeQua" tag="Vers etCoBeQua" image="Image4" size="large"/>
                    <button id="button_5" onAction="button_5_Click" label="Visu Banc" tag="Visu Banc" image="Image5" size="large"/>
                    <button id="button_6" onAction="button_6_Click" label="VisuCouple" tag="VisuCouple" image="Image6" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

'callback created by [[''creatorRibbonX'']]
'[createRibbonX Application] created by (''patricktoulon'')
'Version 2023  All Images 5.1
'POUR MEMO 4 fonctions importantes à connaitre pour les controls dynamiques
'L 'objet IRibbonUI possède 4 méthodes :
'1° myribbon.Invalidate() qui actualise en une seule fois tous les contrôles personnalisés du classeur.
'2° myribbon.InvalidateControl("Id du control") qui actualise un contrôle particulier (ControlID correspond à l'identificateur unique du contrôle).
'3° myRibbon.ActivateTab ("id de l'onglet à activer")qui active l'onglet désigné par son ID dans les parenthèses
'4° myRibbonInvalidateControlMso ("Id de l'element"(onglet/group/control) )qui actualise  l'element désigné par son ID dans les parenthèses


'l'event ribbon onLoad
Public myRibbon As IRibbonUI ' {Variable pour l'object ribbon}

'Callback for customUI.onLoad
Sub CustomUIOnLoad(ribbon As IRibbonUI)
Set myRibbon = ribbon
 End Sub

'procedure {onAction} du bouton QUITTER
Sub button_1_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_1"
End Sub

'procedure {onAction} du bouton IMPRIMER
Sub button_2_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_2"
End Sub

'procedure {onAction} du bouton RAZ
Sub button_3_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_3"
End Sub

'procedure {onChange} de la comboBox 'Choix du banc
Sub comboBox_1_onChange(control As IRibbonControl, text As String)
MsgBox text
End Sub

'procedure  {getItemCount} de la comboBox 'Choix du ban
Sub comboBox_1_GetItemCount(control As IRibbonControl, ByRef returnedVal)
returnedVal = Range("ListeBancs").Rows.Count
End Sub

'procedure  {getItemLabel}  de la comboBox 'Choix du ban
Sub comboBox_1_GetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = Range("ListeBancs").Cells(index + 1)
End Sub

'procedure {onAction} du bouton   Vers etCoBeQua
Sub button_4_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_4"
End Sub

'procedure {onAction} du bouton  Visu Banc
Sub button_5_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_5"
End Sub

'procedure {onAction} du bouton  VisuCouple
Sub button_6_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_6"
End Sub