XL 2016 Pourquoi Evaluate s'exécute toujours 2 fois ?

c'est bien de savoir quelles sont les possibilités technique

Cliquez pour agrandir...

Sub testX()
'******************************************************
'activer la référence Microsoft visual basic for application Extensibility 5.X
'*********************************************************
Set m = ThisWorkbook.VBProject.VBComponents("Module2") 'le module
code = m.CodeModule.Lines(1, m.CodeModule.CountOfLines)'le code entier du module
fonctionrecherchée = "TestEval3()"'la fonction que l'on recherche
MsgBox code Like "*Function*" & fonctionrecherchée & "*" 'alo!!
End Sub

Dranreb à dit:

Bonsoir
En parlant de possibilité technique, il y a quand même Application.Run NomProc avec NomProc une variable String contenant le nom de la Sub à exécuter qui serait à mon avis plus adapté.

Cliquez pour agrandir...

patricktoulon à dit:

re
la même qui cherche la fonction dans tout les modules

Code:

Sub testX2()
Dim code$
'******************************************************
'activer la référence Microsoft visual basic for application Extensibility 5.X
'*********************************************************
For Each m In ThisWorkbook.VBProject.VBComponents
If m.CodeModule.CountOfLines > 0 Then code = m.CodeModule.Lines(1, m.CodeModule.CountOfLines)
fonctionrecherchée = "TestEval3()"
If code Like "*Function*" & fonctionrecherchée & "*" Then MsgBox "oui"
Next
End Sub

Cliquez pour agrandir...

Lu76Fer à dit:

Bonjour,

J'ai testé sur différente version d'excel et le résultat est le même :

VB:

Function TestEval() As Boolean
    Debug.Print "TEST EN COURS ..."
    TestEval = True
End Function

Sub TestAppel()
Dim b As Boolean
    b = Evaluate("TestEval()")
    'b = [TestEval()] 'Même résultat
End Sub

Résultat :
TEST EN COURS ...
TEST EN COURS ...

Qui aurait des explications ou un lien pour m'éclairer ?

Cliquez pour agrandir...

Function TestEval() As Boolean
    Static Vi_i As Integer
    Vi_i = Vi_i + 1
  
    If Vi_i > 1 Then
        Vi_i = 0
        Exit Function
    End If
  
    Debug.Print "TEST EN COURS ..."
    TestEval = True
End Function

...
Static Vb_Execute As Boolean

If Vb_Execute Then
    Vb_Execute = False
    Exit Function
End If
Vb_Execute = True
...