Discussion :

[GriffinK]

Bonjour tout le monde,

Dans un form1, je fais appel à une sub qui se trouve dans un module. Lors de l'exécution, je constate une lenteur. En debuggant je me rends compte que c'est lorsque cette sub est appelée que le programme "freeze" dix secondes puis va dans la sub.

Je me dis qu'étant donné qu'il y a beaucoup de feuilles, le programme met peut être beaucoup de temps à rechercher la sub, j'ai donc mis le nom du module devant la sub (nomDuModule.fonction), mais cela ne résout pas le problème. Par contre, lorsque je met cette fonction dans le form1, ça marche au poil.

Sachant que je voudrais garder ce système de module (beaucoup de fonctions sont appelées dans différentes forms), auriez vous une idée pour résoudre ce soucis ?

[Pol63]

lol
rien à voir
trouver une sub prend beaucoup moins d'une milliseconde
meme sur un programme contenant des centaines de milliers de lignes de code


par contre mets nous le code d'appel et la sub en question, tu dois avoir un truc qui bug ...

[GriffinK]

lol
rien à voir
trouver une sub prend beaucoup moins d'une milliseconde
meme sur un programme contenant des centaines de milliers de lignes de code


par contre mets nous le code d'appel et la sub en question, tu dois avoir un truc qui bug ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    GetSoDet(gTDetail, Cha) ' Public gTDetail As String, Private Cha(4) as string
 
    Public Sub GetSoDet(ByRef Search As String, ByRef Cha() As String)
              'traitement
    End sub

[GriffinK]

Un détail bizarre, lorsque je met cette sub dans un autre form, et que je fais appel ainsi Form.sub alors ça passe nickel

La pause se fait lorsque je fais F11 sur l'appel et lorsque la ligne jaune se positionne sur Public sub etc...