ADDIN A PERSONNALISER

'Pour entrer dans le coeur du sujet :

'Comment ajouter sa propre fonction ?

'Dans le module mGlobals, dans ses déclarations, ajouter une constante sous la ligne de commentaire :
'ajoutez votre menu personnifié ici tel que :
Public Const msVotreMENU As String = "Nom de votre fonction"

'Ensuite, dans le module mMenus, dans la procédure CreateSubMenus, ajouter votre menu à la suite des autres. Pour l'exemple ci-dessus :
        'Exécute votre fonction
        Set oBtn = .Add(Type:=msoControlButton, Parameter:="Votre fonction", temporary:=True)
        With oBtn
            .Caption = msVotreMENU
            .FaceId = 2564 'icon in popup menu
            .Style = msoButtonIconAndCaption
            .Tag = "Custom Tools"
        End With
        Set oEvt = New cCommandButtonEvents
        Set oEvt.oHook = poVBE.Events.CommandBarEvents(oBtn)
        poBtnEvents.Add oEvt

'Ensuite, dans le module de classe cCommandButtonEvents, dans la procédure oHook_Click, ajouter dans le select case à la suite des autres :
    'Here, add your next custom tool
    Case "Votre fonction"
        Call VotreFonction

'Ensuite, dans le module mRunTools, dans le code, ajouter une procédure nommé comme dans l'exemple ci-dessus : VotreFonction
Public Sub VotreFonction()
    MsgBox "Ajoutez ici votre fonction. C'est là que vous pourrez créer le code de la fonction de votre propre addin."    
End Sub