[MichelXld]

bonjour



A placer dans le fichier customUI.xml du classeur.


L'xml suivant:

*Désactive le bouton "bordures".

*Ajoute un groupe et un bouton dans l'onglet "Accueil" (avec description et icone).

*Attache une macro de mise en exposant à ce bouton.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <commands>
    <!-- Désactive le bouton "bordures" -->
    <command idMso="BordersGallery" enabled="false" />
  </commands>
 
<ribbon startFromScratch="false">
 
<tabs>
  <!-- onglet Accueil -->
  <tab idMso="TabHome"> 
    <!-- Crée 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>

Dans un module standard du classeur:
(j'ai un trou ne mémoire et ne sais plus comment récupérer uniquement la sélection, je t'ai donc indiqué une procédure qui passe toute la cellule en exposant. tu n'auras qu'à l'adapter

'Callback for btLance01 onAction
Sub ProcLancement(control As IRibbonControl)
    If ActiveCell.Font.Superscript = True Then
        ActiveCell.Font.Superscript = False
        Else
        ActiveCell.Font.Superscript = True
    End If
End Sub

Bonne journée
MichelXld