Bonjour,
après plusieurs essais de suppression de partie de code il s'avère que c'est ceci, ci dessous, qui pose problème à Avast :
' mise en mémoire des gains x3, position des gains en fonction de la position des symboles de TabImg
TabGainX3 = Array( _
Array(0, 0, 0, 0, 0), _
Array(10000, 7000, 7000, 2000, 2000), _
Array(9000, 6500, 6500, 1500, 1500), _
Array(8000, 6000, 6000, 1000, 1000), _
Array(7000, 5500, 5500, 500, 500), _
Array(15000, 10000, 10000, 5000, 5000), _
Array(12000, 8000, 8000, 3000, 3000), _
Array(6000, 5000, 5000, 300, 300), _
Array(500, 150, 150, 50, 50), _
Array(50, 20, 20, 10, 10) _
)
En sachant que TabGainX3 est dimensionné comme ceci dans un module standard :
Public TabGainX3 As Variant
et que dans la version 10 "prototype" qui ne pose pas de problème à Avast il est défini comme ceci :
' mise en mémoire des gains x3
TabGainX3 = Array( _
Array(15000, 10000, 10000, 5000, 5000), _
Array(12000, 8000, 8000, 3000, 3000), _
Array(10000, 7000, 7000, 2000, 2000), _
Array(9000, 6500, 6500, 1500, 1500), _
Array(8000, 6000, 6000, 1000, 1000), _
Array(7000, 5500, 5500, 500, 500), _
Array(6000, 5000, 5000, 300, 300), _
Array(500, 150, 150, 50, 50), _
Array(50, 20, 20, 10, 10) _
)
Il y a juste une ligne de gain à "0" d'ajouter... et que si dans la version qui pose problème je supprime la ligne de définition des "0" Avast ne détecte plus de soucis !
Y a t il une limite de taille de tableau ? Je ne pense pas puisque la "machine" tourne et réagit bien, alors pourquoi Avast détecte une anomalie de type VBA:DownloaderXR [Trj] ?
Bon le soucis est découvert, pas compris, il me reste à reprogrammer le tout pour supprimer cette ligne de "0", du coup j'ai essayé en replaçant les 0 par des "" et Avast ne détecte plus d'erreur !
Il me faut tester si la machine tourne bien avec cette modification.
@ bientôt
LouReeD