Microsoft 365 Ruban fichier "testRuban"

quelle est la feuille "Settings" c'est pour que je comprenne de mon côté.

Cliquez pour agrandir...

'@Description "Déclenchée lorsque vous cliquez sur le contrôle afin de l'utiliser."
Public Sub OnActionButton(Control As IRibbonControl)
    Select Case Control.ID
        Case "customButton1"
            ' // Ici appel de la procédure liée au bouton custom1
            Ribbon.CustomButtonProcédure
        
        Case "customButton2"
            MsgBox "Vous avez cliqué sur : " & Control.ID
        
        Case "customButton3"
            MsgBox "Vous avez cliqué sur : " & Control.ID
        
        Case Else
            Debug.Print "Case """; Control.ID; """" '; vbTab; " "; Control.Tag; """"      ' // cette ligne crée automatiquement la section case avec le nom du contrôle ;)
    End Select
End Sub

<button id="customButton1"
                            label="ConBold"
                            size="large"
                            onAction="OnActionButton"
                            getVisible="GetVisible"
                            getEnabled="GetEnabled"
                            imageMso="Bold"/>

ensuite sans a minima l'onglet developpeur pour aller au moins dans le vba si tu dois travailler dessus
c'est mort aussi

Cliquez pour agrandir...

Valtrase à dit:

C'est une feuille que j'ai ajouté au projet elle me sert à stocker le Handle du ruban en cas de perte, pendant les tests et autres.
Contrairement à certains, je regroupe toutes les actions du ruban par type de contrôle, et pour éviter de surcharger mon module de Callbacks je crée des procédures dans un module standard ou je place mon code. (à chacun sa façon et je ne dénigre pas les autre.)
Par exemple le bouton customButton1 (on ne s'est pas foulé pour le nom) aura son code dans le module Ribbon et cela donne :

VB:

'@Description "Déclenchée lorsque vous cliquez sur le contrôle afin de l'utiliser."
Public Sub OnActionButton(Control As IRibbonControl)
    Select Case Control.ID
        Case "customButton1"
            ' // Ici appel de la procédure liée au bouton custom1
            Ribbon.CustomButtonProcédure
       
        Case "customButton2"
            MsgBox "Vous avez cliqué sur : " & Control.ID
       
        Case "customButton3"
            MsgBox "Vous avez cliqué sur : " & Control.ID
       
        Case Else
            Debug.Print "Case """; Control.ID; """" '; vbTab; " "; Control.Tag; """"      ' // cette ligne crée automatiquement la section case avec le nom du contrôle ;)
    End Select
End Sub

Dans le xml tous les boutons auront le même onAction exemple :

Code:

<button id="customButton1"
                            label="ConBold"
                            size="large"
                            onAction="OnActionButton"
                            getVisible="GetVisible"
                            getEnabled="GetEnabled"
                            imageMso="Bold"/>

Voilà, sinon rien à ajouter à ce qu'a dis Patrick si ce n'est que :

On a toujours les touches miracles ALT+F11
Voilà bonne programmation.

Cliquez pour agrandir...

Valtrase à dit:

Pourtant tout à l'air bon.
Que dis le compilateur quand vous compillez le projet Menu débogage/Compiler VBAProject ?

Cliquez pour agrandir...

Est-ce que ça fonctionne aussi si le fichier est partagé par Excel ???

Cliquez pour agrandir...

Valtrase à dit:

Qu'entendez-vous par là ?

Cliquez pour agrandir...