Aller au contenu

Passer plus de paramètres au code VBA compilé

Par défaut, la fonction d’assistance utilisée pour exécuter le code VBA compilé ne prend en charge qu’un seul paramètre.

Public Function CallXLSPadlockVBA(ID As String, Param1)
    Dim XLSPadlock As Object
    On Error Resume Next
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    CallXLSPadlockVBA = XLSPadlock.PLEvalVBA(ID, Param1)
End Function

La méthode PLEvalVBA de l’objet XLSPadlock prend deux paramètres : l’ID de la sub/fonction compilée et un paramètre unique Param1.

Pour passer plus de paramètres, l’objet XLSPadlock fournit des méthodes supplémentaires :

  • XLSPadlock.PLEvalVBA2(ID, Param1, Param2) pour deux paramètres.
  • XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) pour trois paramètres.

Il est également possible de passer plus de paramètres en utilisant des tableaux.

Par exemple, une fonction d’assistance pour passer deux paramètres ressemblerait à ceci :

Public Function CallXLSPadlockVBA2(ID As String, Param1, Param2)
    Dim XLSPadlock As Object
    On Error Resume Next
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    CallXLSPadlockVBA2 = XLSPadlock.PLEvalVBA2(ID, Param1, Param2)
End Function