Microsoft 365 Instruction OptionMacros

[Cami]

Bonjour à tous
J'ai un fichier AddIn avec des fonctions crées sous VBA. J'essaie de créer une procédure éventuellement sur ouverture du classeur pour décrire une des fonctions avec l'instruction MacroOptions
Mais quand j'ouvre Excel, ça bug
Comment contourner le problème pour obtenir une description de la fonction dans la boîte de dialogue Insérer fonction ou encore sans une info bulle a la saisie de la fonction ?

 

[fanfan38]

Bonjour Cami
2eme post 2eme fois que tu ne mets pas de fichier....
Un fichier (anonymisé) est TOUJOURS le bienvenu

A+ François

 

[patricktoulon]

bonjour
attention la macrooption travaille au niveau application et par consequent
elle ne doit ^tre ecrite qu'une seule fois
la 2d fois elle ecrase et interdit definivement de la reuploader
il faut donc deleter la macrooption avec le nom utiliser au depart pour pouvoir la remettre

exemple pour ma fonction subsituex dans la section fonction personalisées

Sub UnregisterOptions()
    On Error Resume Next
    Application.MacroOptions Macro:="SUBSTITUEX", Description:=Empty, ArgumentDescriptions:=Empty, Category:=Empty
    On Error GoTo 0
End Sub

Sub registerOptions()
    Dim Funct_description As String, argumtsArray

    '(max 255 caracteres)
    Funct_description = "Fonction SUBSTITUEX" & vbCrLf & _
                        "Cette fonction sert a substituer" & vbCrLf & _
                        "Array;une chaine/carateres" & vbCrLf & "    par" & vbCrLf & _
                        "Array;une chaine/carateres ou un melange" & vbCrLf & _
                        "Creted by patricktoulon"

    'Description des arguments de la fonction
    argumtsArray = Array("string:chaine à traiter", _
                         "array de chaine ou de carateres  à substituer ((peut etre une Range))", _
                         "array de chaine ou de caratères de remplacecement ((peut etre une Range))")


    'appel  la sub pour enregistrer
    Application.MacroOptions Macro:="SUBSTITUEX", _
                             Description:=Mid(Funct_description, 1, 255), _
                             ArgumentDescriptions:=argumtsArray, _
                             Category:="personnalisée"
End Sub