Sub AfficherMasquer_OngletDeveloppeur()
    With Application
        If .ShowDevTools = False Then
            .ShowDevTools = True
            Else
            .ShowDevTools = False
        End If
    End With
End Sub

Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
Sub Masquer_Afficher_Ruban()
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
 
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    
End Sub

 
Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
Private Sub CommandButton1_Click()
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    
    Range("A1").Select
    DoEvents
    
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    
End Sub

<mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/customui">
  <mso:ribbon>
  <mso:qat>
  <mso:sharedControls>
    <mso:control idQ="mso:FileOpen" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:FileSave" visible="true" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:FileSendAsAttachment" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:FilePrintQuick" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:FilePrintPreview" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:Spelling" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:Undo" visible="true" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:Redo" visible="true" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:SortAscendingExcel" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:SortDescendingExcel" visible="false" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:InkingStart" visible="true" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:PivotTableReport" visible="true" insertBeforeQ="mso:FileNewDefault" /> 
    <mso:control idQ="mso:FileNewDefault" visible="false" /> 
    <mso:control idQ="mso:CalculateNow" visible="true" /> 
    <mso:control idQ="mso:FileSaveAsWebPage" visible="true" /> 
    <mso:control idQ="mso:Camera" visible="true" /> 
    <mso:control idQ="mso:DataFormExcel" visible="true" /> 
  </mso:sharedControls>
  </mso:qat>
  </mso:ribbon>
</mso:customUI>

<mso:control idQ="mso:Camera" visible="true" />

<mso:control idQ="mso:Camera" imageMso="PrintPreviewClose" visible="true" />

<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

<!-- Va positionner l'onglet personnel après l'onglet Accueil (TabHome) -->
<tab id="OngletPerso" label="OngletPerso" insertAfterMso="TabHome" visible="true">

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

    <!-- Ajoute la bibliothèque de fonctions -->
    <group idMso="GroupFunctionLibrary" />

    <group id="Essai" label="Essai CustomUI">
      <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" />
    </group>

  </tab>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
 
<tabs>
  <!-- onglet Accueil -->
  <tab idMso="TabHome"> 
    
    <!-- Ajoute un groupe -->  
    <group id="Essai" label="Format exposant">
       <!-- Crée un bouton: -->
       <!--onAction="ProcLancement" définit la macro qui va être déclenchée lorsque vous allez cliquer sur le bouton -->
 
       <button id="btLance01" label="Lancement" screentip="Format exposant."
       onAction="ProcLancement" 
       supertip="Utilisez ce bouton pour transformer la sélection en exposant." 
       size="normal" imageMso="ExponentiationSign" />
    </group>
  </tab> 
 
</tabs>
</ribbon>
</customUI>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
 
<tabs>
  <!-- onglet Accueil -->
  <tab idMso="TabHome"> 
    <!-- Crée un groupe -->  
    <group id="Essai" label="Format exposant">
       <!-- Ajoute le bouton "Insertion signe exposant"  --> 
      <button idMso="ExponentiationSign" size="normal" />
    </group>
  </tab> 
 
</tabs>
</ribbon>
</customUI>

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

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

</ribbon>
</customUI>

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

  <commands>
    <!-- Désactive le bouton "Couleur de remplissage" -->
    <command idMso="CellFillColorPicker" enabled="false" />
  </commands>

<ribbon startFromScratch="false">

</ribbon>
</customUI>

<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. -->
      <!-- onChange="ChangeCombo1" gère l'évènement 'Change' dans la combobox. -->

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

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

Option Explicit

'Callback for Combo1 getItemCount
Sub NbItemCombo(control As IRibbonControl, ByRef returnedVal)
    'Définit le nombre d'éléments dans la combobox
    returnedVal = 4
End Sub



'Callback for Combo1 getItemLabel
'Index est défini par la valeur saisie dans Sub NbItemCombo (=4)
Sub ComboLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    
    'Alimente le Combobox à partir des données de la plage A1:A4
    returnedVal = Worksheets("Feuil1").Cells(index + 1, 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

<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

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 MonRuban Is Nothing Then MonRuban.InvalidateControl "Bouton1"
End Sub

<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>