Exposant et Indice en boutons

[Valentin_Loupe]

Bonjour à tous,

J'aurais souhaité savoir si il était possible d'ajouter deux boutons dans l'onglet "Acceuil" et dans le sous-onglet "Format" permettant de mettre en indice ou en exposant ce qui serait sélectionné par la souris ? Je retirerais le bouton des formats de bordure et je mettrais ces deux derniers.

Je sais que l'on peut ajouter des boutons dans la zone d'en haut à gauche mais ce n'est pas ce qui m'intéresse ; est-ce possible ?

Je vous remercie,

Valentin

[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

[Valentin_Loupe]

Bonjour MichelXld, bonjour le forum,

Merci pour la réponse ! Ca parait compliqué juste pour ajouter deux boutons et en enlever un !!!
Merci encore, à bientôt,

Cordialement,

Valentin