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

        <tabs>
            <tab id="OngletPerso" label="OngletPerso" visible="true">
            </tab>
       </tabs>

    </ribbon>
</customUI>

<Relationship Id="rId10" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" 
Target="/customUI/customUI.xml"/>

				
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">

    <Relationship Id="rId10" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" 
        Target="/customUI/customUI.xml"/>

    <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" 
        Target="docProps/app.xml"/>

    <Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" 
        Target="docProps/core.xml"/>

    <Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" 
        Target="xl/workbook.xml"/>

</Relationships>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<!-- Indiquez True pour masquer tous les autres onglets standards-->
<ribbon startFromScratch="false">

<tabs>
  <!-- Crée un onglet personnalisé: -->
  <!-- L'onglet va se positionner automatiquement à la fin du ruban. -->
  <!-- Utilisez insertAfterMso="NomOngletPrédéfini" pour préciser l'emplacement de l'onglet -->
  <tab id="OngletPerso" label="OngletPerso" visible="true">

    <!-- Crée un groupe -->  
    <group id="Essai" label="Essai CustomUI">

      <!-- Crée un bouton: -->
      <!--onAction="ProcLancement" définit la macro qui va être déclenchée lorsque vous allez cliquer sur le bouton -->
    
      <!--imageMso="StartAfterPrevious" définit une image de la galerie Office qui va s'afficher sur le bouton. -->
	<!--(consultez la FAQ Excel "Comment retrouver l'ID de chaque contrôle du ruban ?" pour plus de détails). -->
      <!-- Nota: il est aussi possible d'ajouter des images externes pour personnaliser les boutons -->
      <button id="btLance01" label="Lancement" screentip="Déclenche la procédure."
      onAction="ProcLancement" 
      supertip="Utilisez ce bouton pour Lancer la macro." 
      size="large" imageMso="StartAfterPrevious" />

      <!-- Crée un deuxième bouton -->	
      <button id="btAide01" label="Aide" screentip="Consultez l'aide."
      onAction="OuvertureAide" size="large" 
      supertip="Consultez les meilleurs cours et tutoriels Office." 
      imageMso="FunctionsLogicalInsertGallery" 
      tag="http://office.developpez.com/" />

    </group>
  </tab>

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

'Callback for btLance01 onAction
Sub ProcLancement(control as IRibbonControl)
End Sub

'Callback for btAide01 onAction
Sub OuvertureAide(control as IRibbonControl)
End Sub

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpfile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


'Callback for btLance01 onAction
Sub ProcLancement(control As IRibbonControl)
    MsgBox "Opération 'Personnaliser le ruban' réussie!"
End Sub


'Callback for btAide01 onAction
'Va ouvrir le lien indiqué dans le Tag du bouton (http://office.developpez.com/)
Sub OuvertureAide(control As IRibbonControl)
    ShellExecute 0&, vbNullString, control.Tag, vbNullString, vbNullString, 0
End Sub

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

</customUI>

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

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <!-- Indiquez True pour masquer tous les autres onglets standards-->
    <ribbon startFromScratch="true">

    </ribbon>
</customUI>

<!-- Mon commentaire -->

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

    <tabs>
        <!-- Masque l'onglet prédéfini Révision -->
        <tab idMso="TabReview" visible="false"/>

        <!-- Ajoute un nouvel onglet nommé OngletPerso -->  
        <tab id="OngletPerso" label="Mes fonctions préférées" visible="true">
        </tab>
    </tabs>

</ribbon>
</customUI>

<!-- Va positionner l'onglet OngletPerso après l'onglet Accueil (TabHome) -->
<tab id="OngletPerso" label="Mes fonctions préférées" insertAfterMso="TabHome" visible="true">

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
        <tab idMso="TabDeveloper" label="Gestion macros et XML" />
      </tabs>
   </ribbon>
</customUI>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
			xmlns:A="Mes macros complémentaires">

<ribbon startFromScratch="false">
  <tabs>

    <tab idQ="A:CibleAddIn" label="Mes macros complémentaires" visible="true">



    </tab>

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

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
			xmlns:A="Mes macros complémentaires">

<ribbon startFromScratch="false">
  <tabs>

    <tab idQ="A:CibleAddIn" label="Mes macros complémentaires" visible="true">
      <group id="Projet01" label="Projet 01">

        <button id="btnLance01" label="Lancement 01"
         onAction="ProcLancement01" 
         size="normal" imageMso="Repeat" />

     </group>
    </tab>

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

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

    <tabs>
        <!-- Ajoute un nouvel onglet nommé OngletPerso -->  
        <tab id="OngletPerso" label="Mes fonctions préférées" visible="true">

            <!-- Crée un groupe -->  
            <group id="Gr01" label="Groupe 01">
            </group>

            <!-- Crée un deuxième groupe -->  
            <group id="Gr02" label="Groupe 02">
            </group>

        </tab>
    </tabs>

</ribbon>
</customUI>

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

    <tabs>
        <!-- Ajoute un nouvel onglet nommé OngletPerso -->  
        <tab id="OngletPerso" label="Mes fonctions préférées" visible="true">

            <!-- Ajoute le groupe standard 'bibliothèque de fonctions' -->
            <group idMso="GroupFunctionLibrary" />

        </tab>
    </tabs>

</ribbon>
</customUI>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="OngletPerso" label="Exemples de labelControl">
                <group id="GR1" label="Test">
                    <labelControl id="LC01" label=" Mon texte 01" />
			  
			  <separator id="Sep01"/>
                    
			  <labelControl id="LC02" label="Montexte 02" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI> 					

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="OngletPerso" label="Exemples ComboBox">
                <group id="GR1" label="Test">
			<comboBox id="CB1" label="Coefficient" onChange="ChangeCB1" > 
      			<item id="it1" label="1" imageMso="MacroPlay" /> 
      			<item id="it2" label="1,25" imageMso="CellsInsertDialog" /> 
      			<item id="it3" label="1,5" imageMso="FileOpen" /> 
      			<item id="it4" label="1,8" imageMso="Spelling" />
			</comboBox>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI> 

'Callback for CB1 onChange
Sub ChangeCB1(control As IRibbonControl, text As String)
    MsgBox text
End Sub

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

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

      <!-- getItemCount="NbItemCombo" va définir le nombre d'items dans la combobox. --> 
      <!-- getItemLabel="ComboLabel" permet d'alimenter la combobox. -->
      <!-- invalidateContentOnDrop="true" permet la mise à jour automatique du contrôle. -->

      <comboBox id="Combo1" label="Choix : " getItemCount="NbItemCombo" getItemLabel="ComboLabel"
         invalidateContentOnDrop="true" />
   </group>
</tab>

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

'Callback for Combo1 getItemCount
Sub NbItemCombo(control As IRibbonControl, ByRef returnedVal)
    'Définit le nombre d'éléments dans la combobox
    
    'Récupère le nombre de données dans la colonne A.
    returnedVal = Feuil1.Range("A65536").End(xlUp).Row
End Sub


'Callback for Combo1 getItemLabel
'Index est défini par la valeur saisie dans la fonction de rappel NbItemCombo
Sub ComboLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    
    If Feuil1.Range("A65536").End(xlUp).Row = 0 Then Exit Sub
    
    'Alimente le Combobox à partir des données de la plage de cellules
    returnedVal = Feuil1.Cells(index + 1, 1)
End Sub

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

  <ribbon>
    <tabs>
      <tab id="Planning" label="Gestion planning" >
        <group id="Calendrier" label="Le calendrier">

		<gallery id="gallery01" 
			size="large"
			imageMso="StartAfterPrevious" 
			label="Sélectionnez un mois :" 
			columns="3"</