Personnalisation du ruban:
Les fonctions d'appel CallBacks

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<!-- onLoad="RubanCharge" est déclenché lors du chargement du ruban personnalisé. -->
<ribbon startFromScratch="false">
<tabs>

<tab id="OngletPerso" label="OngletPerso" visible="true">
   <group id="Projet01" label="Projet 01">

      <!-- onAction="ProcLancement" définit la macro déclenchée lorsque vos cliquez sur le bouton. -->
      <!-- getEnabled="Bouton1_Enabled" gére la condition d'activation ou de désactivation. -->       
      <button id="Bouton1" label="Lancement" onAction="ProcLancement" size="normal" 
         imageMso="Repeat" getEnabled="Bouton1_Enabled"/> 

   </group>
</tab>

</tabs>
</ribbon>
</customUI>

Option Explicit

Public objRuban As IRibbonUI
Public boolResult As Boolean


'Callback for customUI.onLoad
'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
    boolResult = False
    Set objRuban = ribbon
End Sub


'Callback for Bouton1 onAction
'La procédure déclenchée lorsque vous cliquez sur le bouton.
Sub ProcLancement(control As IRibbonControl)
    MsgBox "ma procédure."
End Sub


'Callback for Bouton1 getEnabled
'Active ou désactive le bouton en fonction de la variable boolResult
Sub Bouton1_Enabled(control As IRibbonControl, ByRef returnedVal)
    returnedVal = boolResult
End Sub

Option Explicit

'Evenement Change dans la feuille de calcul.
Private Sub Worksheet_Change(ByVal Target As Range)
    'Vérifie si la cellule A1 est modifiée et si la cellule contient la valeur 1.
    If Target.Address = "$A$1" And Target = 1 Then
        boolResult = True
    Else
        boolResult = False
    End If
        
    'Rafraichit le bouton personnalisé
    If Not objRuban Is Nothing Then objRuban.InvalidateControl "Bouton1"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 
		loadImage="MacroChargementImage"> 

  <ribbon>
    <tabs>
      <tab id="Tab01" label="Test" >
        <group id="Groupe01" label="Essai chargement image">
              <button id="button01" 
              	size="large"
                image="logo16.gif"/>

              <button id="button02" 
              	size="large"
                image="lapin4.gif"/>
        </group>
      </tab>
    </tabs>
  </ribbon>

</customUI>

'Callback for customUI.loadImage
Sub MacroChargementImage(imageID As String, ByRef returnedVal)
    Set returnedVal = LoadPicture("C:\dossier\" & imageID)
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<!-- onLoad="RubanCharge" est déclenché lors du chargement du ruban personnalisé. -->
<ribbon startFromScratch="false">
<tabs>
 
<tab id="OngletPerso" label="OngletPerso" visible="true">
   <group id="Projet01" label="Projet 01">
 
      <!-- onAction="ProcLancement" définit la macro déclenchée lorsque vos cliquez sur le bouton. -->
      <!-- getEnabled="Bouton1_Enabled" gère la condition d'activation ou de désactivation. -->       
      <button id="Bouton1" label="Lancement" onAction="ProcLancement" size="normal" 
         imageMso="Repeat" getEnabled="Bouton1_Enabled"/> 
 
   </group>
</tab>
 
</tabs>
</ribbon>
</customUI>

Option Explicit
 
Public MonRuban As IRibbonUI
Public boolResult As Boolean
 
 
'Callback for customUI.onLoad
'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
    boolResult = False
    Set MonRuban = ribbon
End Sub
 
 
'Callback for Bouton1 onAction
'La procédure déclenchée lorsque vous cliquez sur le bouton.
Sub ProcLancement(control As IRibbonControl)
    MsgBox "ma procédure."
End Sub
 
 
'Callback for Bouton1 getEnabled
'Active ou désactive le bouton en fonction de la variable boolResult
Sub Bouton1_Enabled(control As IRibbonControl, ByRef returnedVal)
    returnedVal = boolResult
End Sub

'Evenement Change dans la feuille de calcul.
Private Sub Worksheet_Change(ByVal Target As Range)
    
    'Vérifie si la cellule A1 est modifiée et si la cellule contient la valeur 1.
    If Target.Address = "$A$1" Then _
        boolResult = Target = 1
    
    'Rafraichit le bouton personnalisé
    If Not MonRuban Is Nothing Then MonRuban.InvalidateControl "Bouton1"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <commands>

        <command idMso="Copy"
          getEnabled="macroGetEnabled"/>

    </commands>
</customUI>

'Callback for Copy getEnabled
Sub macroGetEnabled(control As IRibbonControl, ByRef returnedVal)
    'Désactive la commande si le classeur est ouvert en lecture seule.
    returnedVal = Not ThisWorkbook.ReadOnly

    'Nota:
    'Le raccourci clavier (Ctrl+C) n'est pas désactivé.
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 
   onLoad="RubanCharge" > 
   <commands> 
     <command idMso="FindDialogExcel" onAction="MaRecherchePerso" /> 
   </commands> 
   <ribbon startFromScratch="false"> 
     <tabs> 
       <tab id="Tab01" label="Test" > 
         <group id="Groupe01" label="essai de réattribution d'un contrôle prédéfini"> 
           <toggleButton id="ToggleButton01"  
             imageMso="SheetProtect"  
             size="large"  
             getLabel="MacroGetLabel"  
             onAction="ModifStatutBoutonRecherche" /> 
         </group> 
       </tab> 
     </tabs> 
   </ribbon> 
</customUI>

Option Explicit

Private Sub Workbook_Open()
    boolResult = False
End Sub

Option Explicit
Public boolResult As Boolean
Public objRuban As IRibbonUI


'Callback for customUI.onLoad
    'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
    Set objRuban = ribbon
End Sub


'Callback for ToggleButton01 onAction
    'Récupère la valeur du bouton bascule puis désactive ou réinitialise la commande
    'prédéfinie 'Recherche'
Sub ModifStatutBoutonRecherche(control As IRibbonControl, pressed As Boolean)
    boolResult = pressed
    objRuban.Invalidate
End Sub


'Callback for FindDialogExcel onAction
    'Réattribue temporairement la commande 'Recherche' ou la réinitialise
    'en fonction de la valeur de la variable boolResult (utilisation du tooggleButton)
Sub MaRecherchePerso(control As IRibbonControl, ByRef cancelDefault)
    If boolResult Then
        MsgBox "Le bouton 'Recherche' est temporairement désactivé"
        'Vous pouvez éventuellement ajouter vos procédures de
        'recherche personnelles.
        '
        cancelDefault = True
    Else
        cancelDefault = False
    End If

End Sub


'Callback for ToggleButton01 getLabel
    'Attribue une étiquette au bouton bascule en fonction de sa position
Sub MacroGetLabel(control As IRibbonControl, ByRef returnedVal)
    If boolResult Then
        returnedVal = "Bouton 'Recherche' Désactivié"
        Else
        returnedVal = "Bouton 'Recherche' opérationnel"
    End If
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="false">
      <tabs>
        <tab id="TB01" label="Test">
			<group id="GR01" label="Essais de bouton">
				<button idMso="Copy" size="normal" getVisible="SiUtilisateur" />
			</group>
        </tab>
      </tabs>
   </ribbon>
</customUI>

'Callback for Copy getVisible
Sub SiUtilisateur(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Environ("username") = "mimi"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="false">
      <tabs>
        <tab id="TB01" label="Test">
			<group id="GR01" label="Essais de bouton">

				<button id="bouton01"
					imageMso="RefreshStatus" 
					onAction="MacroBouton" 
					size="normal" 
					getKeytip="DefinitRaccourci" />
				  
			</group>
        </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit

'Callback for bouton01 getKeytip
'Définit le raccourci clavier qui va être associé au bouton.
Sub DefinitRaccourci(control As IRibbonControl, ByRef returnedVal)
    returnedVal = "XL"
End Sub


'Callback for bouton01 onAction
Sub MacroBouton(control As IRibbonControl)
    MsgBox "Vous avez cliqué sur le bouton '" & control.id & "'"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="objRuban"> 
 
  <ribbon>
    <tabs>
      <tab id="Essai" label="Essai" >
        <group id="MdP" label="Mot de passe">
 
		<gallery id="gallery01" 
			size="normal"
			imageMso="CalculateNow" 
			label="Saisissez le mot de passe:"
			columns="6" 
			rows="6"
			getItemCount="NbCaracteres"
			showItemLabel="true"
			getItemLabel="LabelCaractere"
			screentip="Sélectionnez les caractéres dans la galerie,&#13;
				puis validez le mot de passe."
			onAction="SelectCaractere" > 
 
			<button id="Bt02" label="Effacer la saisie." 
				imageMso="ClearMenu" onAction="EffaceContenuLabel"/> 
 
		</gallery> 
 
		<box id="Box01" boxStyle="horizontal">
			<labelControl id="LC01" getLabel="ContenuLabel" /> 
 
		</box> 
 
		<button id="Bt01" imageMso="FileStartWorkflow" size="normal" 
			label="Validez le mot de passe" visible="true" onAction="ValidationMdP" /> 
 
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Option Explicit
 
'Définit les caractère utilisables pour la saisie du mot de passe
Private Sub Workbook_Open()
    Tableau = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
        "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", _
        "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
End Sub

Option Explicit
Option Base 1
 
Public Cible As String
Public MonRuban As IRibbonUI
Public Tableau As Variant
 
 
 
'Callback for customUI.onLoad
'Définit l'objet ruban
Sub objRuban(ribbon As IRibbonUI)
    Set MonRuban = ribbon
End Sub
 
 
'Callback for gallery01 getItemCount
'Définit le nombre d'élément dans la galerie
Sub NbCaracteres(control As IRibbonControl, ByRef returnedVal)
    returnedVal = UBound(Tableau) + 1
End Sub
 
 
'Callback for gallery01 getItemLabel
'Création des éléments dans la galerie
Sub LabelCaractere(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = Tableau(index)
End Sub
 
 
'Callback for gallery01 onAction
'Met à jour le label après avoir sélectionné un caractère dans la galerie
Sub SelectCaractere(control As IRibbonControl, id As String, index As Integer)
    Cible = Cible & Tableau(index)
    MonRuban.InvalidateControl "LC01"
End Sub
 
 
'Callback for LC01 getLabel
'Affiche des asteriques dans le label en lieu et place des caractères
Sub ContenuLabel(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Application.WorksheetFunction.Rept("*", Len(Cible))
End Sub
 
 
'Callback for Bt01 onAction
'Validaton du mot de passe
Sub ValidationMdP(control As IRibbonControl)
    MsgBox "Confirmation du mot de passe : (" & Cible & ")"
    
    Cible = ""
    MonRuban.InvalidateControl "LC01"
End Sub
 
 
'Callback for Bt02 onAction
'réinitialisation: Efface le contenu du label en cas d'erreur
'de saisie.
Sub EffaceContenuLabel(control As IRibbonControl)
    Cible = ""
    MonRuban.InvalidateControl "LC01"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 

  <ribbon>
    <tabs>
      <tab id="Tab01" label="Test" >
        <group id="Groupe01" label="Essai chargement image">
              <button id="button01" 
                getImage="MacroChargementImage"
		        tag="logo16.gif"/>
        </group>
      </tab>
    </tabs>
  </ribbon>

</customUI>

'Callback for button01 getImage
Sub MacroChargementImage(control As IRibbonControl, ByRef returnedVal)
    Set returnedVal = LoadPicture("C:\dossier\" & control.Tag)
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 

  <ribbon>
    <tabs>
      <tab id="Tab01" label="Test" >
        <group id="Groupe01" label="Essai getScreentip et getSupertip">

		<button id = "bouton01" 
			imageMso="MacroSecurity" 
			getScreentip="AideBouton"
			getSupertip="AideComplementaire" 
			onAction = "MaProcedure"
			tag="1" />

		<button id = "bouton02" 
			imageMso="ShowClipboard" 
			getScreentip="AideBouton"
			getSupertip="AideComplementaire" 
			onAction = "MaProcedure"
			tag="2" />
        </group>
      </tab>
    </tabs>
  </ribbon>

</customUI>

'Callback for bouton01 getScreentip
Sub AideBouton(control As IRibbonControl, ByRef returnedVal)
    'L'infobulle est stockée dans la colonne A de la Feuil2
    'l'attribut Tag permet de définir la ligne correspondante
    returnedVal = Worksheets("Feuil2").Cells(CDec(control.Tag), 1)
End Sub


'Callback for bouton01 getSupertip
Sub AideComplementaire(control As IRibbonControl, ByRef returnedVal)
    'L'infobulle est stockée dans la colonne A de la Feuil2
    returnedVal = Worksheets("Feuil2").Cells(CDec(control.Tag), 2)
End Sub


'Callback for bouton01 onAction
'Macro associée aux boutons
Sub MaProcedure(control As IRibbonControl)
    MsgBox "Ma procédure lancée depuis le bouton '" & control.id & "'"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 <ribbon startFromScratch="false">
  <tabs>
   <tab id="Tab01" label="Test">
     <group id="Groupe01" label="essai getDescription">

        <menu id="menu01" 
              label="Export" 
              imageMso ="FileCompatibilityChecker"
              itemSize="large" >
           
		<button id="bouton01" 
                   label="Vérification" 
                   imageMso="MacroSecurity" 
                   getDescription="MacroDescription"
                   onAction="MacroVerif"/>

           <button id="bouton02" 
                   label="Transfert" 
                   imageMso="FileStartWorkflow" 
                   getDescription="MacroDescription"
                   onAction="MacroTransfert"/>
        </menu>
     </group>
   </tab>
  </tabs>
 </ribbon>
</customUI>

'Callback for bouton01 getDescription
'Une description est associée à chaque bouton
Sub MacroDescription(control As IRibbonControl, ByRef returnedVal)
    Select Case control.id
        Case "bouton01": returnedVal = "Vérifier la structure des données"
        Case "bouton02": returnedVal = "Envoyer les données"
    End Select
End Sub


'Callback for bouton01 onAction
Sub MacroVerif(control As IRibbonControl)
End Sub

'Callback for bouton02 onAction
Sub MacroTransfert(control As IRibbonControl)
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="tab1" label="Test" >
            <group id="GR01" label="Essai getSize boutons">
               <button id="bouton01"
			imageMso="PictureBrightnessGallery"
                  label="Bouton 01"
                  getSize="MacroGetSize" />
               <button id="bouton02"
			imageMso="PictureBrightnessGallery"
                  label="Bouton 02"
                  getSize="MacroGetSize" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

'Callback for bouton01 getSize
    'Attribue une taille aux boutons
Sub MacroGetSize(control As IRibbonControl, ByRef returnedVal)
    Select Case control.id
        'Attribue la taille 'large' au premier bouton
        Case "bouton01": returnedVal = 1
        'Attribue la taille 'normal' au deuxième bouton
        Case "bouton02": returnedVal = 0
    End Select
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="tab1" label="Test" >
            <group id="GR01" label="Essai de checkbox">
               <checkBox id="CheckBox1"
                  label="Option"
			onAction="Validation"  
                  getPressed="MacroGetPressed" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit

'Callback for CheckBox1 getPressed
    'Définit le statut de la case à cocher
Sub MacroGetPressed(control As IRibbonControl, ByRef returnedVal)
    returnedVal = True
End Sub

'Callback for CheckBox1 onAction
    'Renvoie la valeur de la case à cocher lorsque vous cliquez dessus
Sub Validation(control As IRibbonControl, pressed As Boolean)
    MsgBox pressed
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="false">
      <tabs>
        <tab id="TB01" label="Test">
			<group id="GR01" label="Essais getItemID">

				<dropDown id="DropDown01" 
					getItemCount="MacroGetItemCount" 
					getItemID="MacroGetItemID" 
					getItemLabel="MacroGetItemLabel"
					onAction="LancementProcedure" />
			</group>
        </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit

'Callback for DropDown01 getItemCount
    'Définit le nombre d'éléments dans le menu déroulant
Sub MacroGetItemCount(control As IRibbonControl, ByRef returnedVal)
    returnedVal = 5
End Sub


'Callback for DropDown01 getItemID
    'Attribue un id à chaque élément
Sub MacroGetItemID(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = "strID" & index + 1
End Sub


'Callback for DropDown01 getItemLabel
    'Attribue un label à chaque élément
Sub MacroGetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = "LeLabel " & index + 1
End Sub


'Callback for DropDown01 onAction
    'Est déclenché lorsque vous sélectionné un élément dans le menu déroulant
Sub LancementProcedure(control As IRibbonControl, id As String, index As Integer)
    MsgBox "Vous avez sélectionné l'id : '" & id & "'"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="Tab01" label="Browser d'images" >
            <group id="Groupe01" label="Mes images">

           		<gallery id="Galerie01"
					label="Affichez la prévisualisation d'images" 
					imageMso="ObjectPictureFill"
					columns="3" 

					onAction="ActionElementGalerie"

                	getShowImage="MacroShowImage" 
                	getShowLabel="MacroShowLabel"
					getItemCount="MacroGetItemCount"                  
                	getItemImage="MacroGetItemImage" 
                	getItemLabel="MacroGetItemLabel" 
                	getItemScreentip="MacroGetItemScreenTip" 
                	getItemSupertip="MacroGetItemSuperTip"
                	getItemHeight="MacroGetItemHeight" 
                	getItemWidth="MacroGetItemWidth"
					getSelectedItemIndex="MacroSelItemIndex" >

			</gallery>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit
Option Compare Text

Dim x As Integer


Private Sub Workbook_Open()
    Const Cible = &H27 'définit le répertoire "Mes images"
    Dim objShell As Object, objFolder As Object
    Dim strFileName As Object
    Dim Resultat As String
    Dim i As Integer
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Cible)
    
    'Récupére le chemin du répertoire Windows "Mes images"
    Chemin = objFolder.Self.Path
    
    'boucle sur tous les fichiers du repertoire
    For Each strFileName In objFolder.Items
        'pour extraire uniquement les images type .jpg
        If strFileName.IsFolder = False And Right(strFileName, 4) = ".jpg" Then
            
            x = x + 1
            ReDim Preserve Tableau(1 To 2, 1 To x)
            'Enregistre le nom du fichier dans la premiere dimension du tableau
            Tableau(1, x) = strFileName
            Resultat = ""
            
            'Boucle sur les propriétés de chaque fichier:
            'ces informations seront affichées dans les info-bulles des éléments de
            'la galerie.
            For i = 0 To 34
                If objFolder.GetDetailsOf(strFileName, i) <> "" Then _
                    Resultat = Resultat & objFolder.GetDetailsOf(strFileName, i) & vbLf
            Next
            
            'Enregistre les propriétés dans la deuxième dimension du tableau
            Tableau(2, x) = Resultat
        End If
    Next

End Sub

Option Explicit

Public Chemin As String
Public Tableau() As String


'Callback for Galerie01 onAction
    'définit la procédure déclenchée lorsque vous
    'cliquez sur un élément de la galerie.
Sub ActionElementGalerie(control As IRibbonControl, id As String, index As Integer)
    MsgBox "Vous avez cliqué sur l'image '" & Tableau(1, index + 1) & "'"
End Sub


'Callback for Galerie01 getShowImage
    'Définit si l'image de la galerie doit être affichée
Sub MacroShowImage(control As IRibbonControl, ByRef returnedVal)
    returnedVal = True
End Sub


'Callback for Galerie01 getShowLabel
    'Définit si le label de la galerie doit être affichée
Sub MacroShowLabel(control As IRibbonControl, ByRef returnedVal)
    returnedVal = True
End Sub


'Callback for Galerie01 getItemCount
    'Définit le nombre d'éléments de la galerie
    '(la taille maxi du tableau = nombre de fichiers .jpg)
Sub MacroGetItemCount(control As IRibbonControl, ByRef returnedVal)
    'La variable VarTab doit impérativement être de type Variant.
    Dim VarTab As Variant
    
    On Error Resume Next
    'VarTab va prendre la valeur Empty si le tableau est vide.
    VarTab = UBound(Tableau)
    On Error GoTo 0

    If IsEmpty(VarTab) Then
        returnedVal = 0
        Else
        returnedVal = UBound(Tableau, 2)
    End If
End Sub


'Callback for Galerie01 getItemImage
    'Charge les images pour chaque élément de la galerie
Sub MacroGetItemImage(control As IRibbonControl, index As Integer, ByRef returnedVal)
    Set returnedVal = LoadPicture(Chemin & "\" & Tableau(1, index + 1))
End Sub


'Callback for Galerie01 getItemLabel
Sub MacroGetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = Tableau(1, index + 1)
End Sub


'Callback for Galerie01 getItemScreenTip
Sub MacroGetItemScreenTip(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = "Propriétés de '" & Tableau(1, index + 1) & "'"
End Sub


'Callback for Galerie01 getItemSuperTip
'Ajoute des informations sur les propriétés de l'image dans chaque infobulle
Sub MacroGetItemSuperTip(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = Tableau(2, index + 1)
End Sub


'Callback for Galerie01 getItemHeight
'Définit la hauteur de l'image qui va s'afficher dans la galerie
Sub MacroGetItemHeight(control As IRibbonControl, ByRef returnedVal)
    returnedVal = 50
End Sub


'Callback for Galerie01 getItemWidth
'Définit la largeur de l'image qui va s'afficher dans la galerie
Sub MacroGetItemWidth(control As IRibbonControl, ByRef returnedVal)
    returnedVal = 50
End Sub


'Callback for Galerie01 getSelectedItemIndex
    'Permet de définir un élément de la galerie (à partir de son index) qui sera sélectionné
    'par défaut lors de l'ouverture.
Sub MacroSelItemIndex(control As IRibbonControl, ByRef returnedVal)
    '0 = le premier élément de la galerie
    returnedVal = 0
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="OngletPerso" label="Test">
                <group id="GR01" label="Exemple utilisation editBox">

			<box id="Box01" boxStyle="horizontal">                    
				<editBox id="editBox01" 
					label="Saisissez le code :"
					onChange="RecupDonnee"
					getText="MacroGetText" />
			</box>

			<button id="button01" 
				onAction="ValidationCode"
				label="Validez le code"
				imageMso="FileServerTasksMenu"
				size="normal"/>

                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Option Explicit

Dim Cible As String


'Callback for editBox01 getText
    'Spécifie une donnée par défaut pour le contrôle editBox
Sub MacroGetText(control As IRibbonControl, ByRef returnedVal)
    Cible = 1234
    returnedVal = Cible
End Sub


'Callback for editBox01 onChange
    'Récupère le contenu du contrôle editBox dans la variable 'Cible'
Sub RecupDonnee(control As IRibbonControl, text As String)
    Cible = text
End Sub


'Callback for button01 onAction
Sub ValidationCode(control As IRibbonControl)
    MsgBox Cible
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="Tab01" label="Onglet perso" >
            <group id="Groupe01" label="Essai">

           		<gallery id="Galerie01"
				label="Test"
				columns="3" 
				imageMso="InkHighlighter"
                		showImage="true" 
                		showLabel="true"
				getSelectedItemID="MacroSelItemID" >
					<item id="lettre01" label="A" /> 
					<item id="lettre02" label="B" /> 
					<item id="lettre03" label="C" /> 
					<item id="lettre04" label="D" />
					<item id="lettre05" label="E" />
					<item id="lettre06" label="F" />

			</gallery>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

'Callback for Galerie01 getSelectedItemID
    'Permet de définir un élément de la galerie (à partir de son identificateur unique 'id')
    'qui sera sélectionné par défaut lors de l'ouverture.
Sub MacroSelItemID(control As IRibbonControl, ByRef returnedVal)
    returnedVal = "lettre02"
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">

    <tabs>
        <tab id="Ongletperso" label="Liste feuilles">

            <group id="GR01" label="Test">

            <dynamicMenu id="ListeDynamique"
                label="Liste feuilles"
                getContent="CreationMenuDynamique"
                invalidateContentOnDrop="true"
                size="normal"
                imageMso="PrintTitles"/>
            </group>

        </tab>
    </tabs>

</ribbon>
</customUI>

Option Explicit

'Callback for ListeDynamique getContent
'Procédure pour construire le menu dynamique
Public Sub CreationMenuDynamique(ctl As IRibbonControl, ByRef content)
    'ouverture de la balise menu
    content = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"

    'liste les feuilles de calcul du classeur actif
    content = content & ListeFeuilles(ActiveWorkbook)

    'liste les feuilles graphiques du classeur actif
    content = content & ListeCharts(ActiveWorkbook)

    'fermeture de la balise
    content = content & "</menu>"
End Sub



Private Function ListeFeuilles(Wb As Workbook) As String
    Dim strTemp As String
    Dim Ws As Worksheet
    
    ' Insertion d'un titre de menu
    strTemp = "<menuSeparator id=""Feuilles"" title=""Feuilles""/>"

    ' ajoute un bouton dans le menu pour chaque feuille du classeur
    For Each Ws In Wb.Worksheets
        strTemp = strTemp & _
            "<button " & _
            CreationAttribut("id", "Bt" & Ws.Name) & " " & _
            CreationAttribut("label", Ws.Name) & " " & _
            CreationAttribut("tag", Ws.Name) & " " & _
            CreationAttribut("onAction", "ActivationFeuille") & "/>"
    Next

    ListeFeuilles = strTemp
End Function


'Liste les feuilles graphiques contenues dans le classeur
Private Function ListeCharts(Wb As Workbook) As String
    Dim strTemp As String
    Dim Ch As Chart
    
    If Wb.Charts.Count = 0 Then Exit Function
    
    strTemp = "<menuSeparator id=""charts"" title=""charts""/>"

    For Each Ch In Wb.Charts
        strTemp = strTemp & _
            "<button " & _
            CreationAttribut("id", "Bt" & Ch.Name) & " " & _
            CreationAttribut("label", Ch.Name) & " " & _
            CreationAttribut("tag", Ch.Name) & " " & _
            CreationAttribut("onAction", "ActivationFeuille") & "/>"
    Next

    ListeCharts = strTemp
End Function


Function CreationAttribut(strAttribut As String, Donnee As String) As String
    CreationAttribut = strAttribut & "=" & Chr(34) & Donnee & Chr(34)
End Function



'Active la feuille sélectionnée lorsque vous cliquez sur un nom
'dans le menu.
Sub ActivationFeuille(control As IRibbonControl)
    Sheets(control.Tag).Activate
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon startFromScratch="false">
	<tabs>
		<tab id="TB01" label="Test">
			<group id="GR01" label="Essais">
				<menu id="Menu01" label="Test menuSeparator" itemSize="normal"> 
					<button id="bouton01" imageMso="ShapeStylesGallery" label="Bouton 01" /> 
					<menuSeparator id="Separator01" 
						getTitle="MacroTitreMenuSeparator" />
					<button id="bouton02" imageMso="ShapeChangeShapeGallery" label="Bouton 02" /> 
					<button id="bouton03" imageMso="SelectionPane" label="Bouton 03" /> 
					<button id="bouton04" imageMso="ObjectsGroup" label="Bouton 04" />
				</menu>
			</group>
		</tab>
	</tabs>
</ribbon>
</customUI>

'Callback for Separator01 getTitle
    'indique le titre du menu séparateur
Sub MacroTitreMenuSeparator(control As IRibbonControl, ByRef returnedVal)
    returnedVal = ThisWorkbook.Name
End Sub