Gestion mémoire ?!?!

Bonjour,

J'ai un petit problème de gestion de mémoire, mon VBA Excel pétant litéralement les plombs au niveau de sa consommation de mémoire.

Le fait est que, durant mon code VBA, je charge quelques 'gros' tableau (gros pour VBA, la dimension n'étant que de 2x~1500). J'ai beau essayer d'utiliser toujours le même nom de tableau d'une procédure à l'autre (à condition que cela soit le même tableau) j'ai l'impression qu'Excel ne fait que crée de nouvelle zones mémoire, sans libérer les anciennes. Mais prenons un exemple :

Voila ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function Liquid_Liq_Check(Nerr As Long) Dim Old_Struc(), New_Struc() As Variant   WLog "STRUCTURE LIQUID", True   For lc = 0 To UBound(LiqC) 'Dimension de LiqC : (4) variable public WLog " > " & LiqC(lc), False Old_Struc = Liquid_Structure(Sheets(ST)) 'Dimension de Old_Struc : (2,~1500) New_Struc = Liquid_Structure(Sheets(LiqC(lc) & "_L")) 'Dimension de New_Struc : (2,~1500)   u = Struc_Check(New_Struc, Old_Struc) 'Fonction qui va comparer mes deux tableaux Next lc   Liquid_Liq_Check = Nerr End Function

---

Dans Struc_Check, les tableau conservent le même nom de variable (New_Struc, Old_Struc et la dimension de Old_Struc est petit à petit ramené de 2x1500 à 2x0) et dans Liquid_Structure ils s'appelent Struc. En début de boucle for, Excel consomme ~65mo. A la fin de la première boucle : ~280mo (à la limite pourquoi pas, il a créé au moins 3 tableau de 2x1500). A la deuxième : ~495mo puis ~710 pour finir en toute fin de boucle à 1140mo.

Le plus étrange est que, si je ferme mon fichier Excel (juste le fichier, pas la session Excel) je libère environ 40mo de mémoire uniquement...

Comment puis-je intégrer la gestion de mémoire à mes function?

Bonjour,
quelques pistes :
- essayer de typer les 2 tableaux pour ne pas les laisser en variant => integer, string etc...
- Rajouter un End avant le End Function.

Tu nous dis ?

Petite précision:

Toutes mes variables sont déclarées, j'utilise 1 variable public et 3 constantes.

De plus, dans la boucle qui surcharge ma mémoire (dans ma fonction Liquid_Structure) j'ai ajouté un log de mes conso de mémoire pour identifier quel variable faisait monter en charge ma mémoire. Or en utilisant Application.MemoryUsed // Application.MemoryFree // Application.MemoryTotal j'ai toujours la même chose : Used : 40mo Free : 1mo Total 41mo. Alors même qu'Excel utilise plus que ça en mémoire au début de ma fonction... Existe-t-il une autre syntaxe pour récupérer des valeurs d'utilisation de mémoire qui veuillent dire quelque chose?

Quel est l'utilité de rajouter un End avant le End Function?
Est-il possible d'avoir un string sur plusieurs dimensions? genre string(1, 1500)

** EDIT **

- A oui on peut dimensionner une string, j'aurais appris quelque chose aujourd'hui :)

- Pour le End on va oublier car ça termine ma fonction. Le bout de code que j'ai mis est inclu dans d'autres fonctions.

Bon, en déclarant avec un type autre que Variant (et donc mieux adapté) ça a effectivement l'air de me libérer de la mémoire, à condition aussi de changer mes sous fonctions.

Jusqu'ici je faisait :

x = sous_fonction(liste_variable)

Et je vais faire

sous_fonction liste_variable, x

avec un ByRef sur x dans ma sous fonction... Sinon je me prenais beaucoup de err 13 incompatibilité de type car je ne redimensionnais pas x (les dimension n'étant identifié que dans mes sous fonctions). Enfin il me semble que mes erreurs venaient de là :)

salut

trop d'éléments inconnus pour répondre valablement.
- Que sont et comment et ou ont été définies et déclarées les variables dont on ne voit pas la déclaration dans la fonction ?
- Qu'est la fonction ou la routine Wlog ? quel est son code ?

Effectivement je n'ai pas mit tout mon code. Loin de là.

Le problème venait déjà en grande partie de mes variables déclaré en Variant. En changeant ça déjà, même si ma conso de mémoire augmente, je fait 60->100 au lieu de faire 60->1000. C'est mieux y'a pas à dire :)

Toujours est-il que ça me semble encore beaucoup.

Voila un update de mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function Liquid_Liq_Check(ByRef Nerr As Long) Dim Old_Struc() As String, New_Struc() As String Dim lc As Long   WLog "STRUCTURE LIQUID", True   For lc = 0 To UBound(LiqC) WLog " > " & LiqC(lc), False Liquid_Structure Sheets(ST), Old_Struc Liquid_Structure Sheets(LiqC(lc) & "_L"), New_Struc 'u = Struc_Check(New_Struc, Old_Struc) Next lc   End Function

---

Cela m'étonnerais que la montée en charge vienne de WLog. En fait j'en suis même sûr, il y a énormément d'appel à cet fonction dans le reste de mon code, pour une montée en charge qui ne dépassait pas 100ko jusqu'aux appels à Liquid_Structure. De toute façon il s'agit simplement d'écrire un log de ce qui est fait dans une texte box

Toujours est-il que mon problème est plus ou moins résolu en changeant la déclaration de mes Variant en quelque chose de plus approprié. Jusqu'à aujourd'hui j'ai toujours pensé qu'un tableau était forcément Variant... Apparement mes ~40mo de charge supplémentaire en utilisant ma fonction Liquid_Structure finissent par se libérer. Le seul truc étrange est qu'ils sont libéré bien après la fin de mon code (genre là après 10min sans touché à mon Excel, il est repassé de 100mo à 5mo, un peu comme une mise en veille, et remonte à ~50/60mo des que je commence à me resservir de lui)

Peut être avec des

Code:

---

set Liquid_Structure=nothing

---

avant le end function. mais il n'est même pas sûr qu'Excel libère immédiatement la mémoire qu'il s'est alloué pour l'opération.

Sinon pour les tableaux il y a sur ce forum d'excellents tutos. Il peut être intéressant de les dimensionner dès le début.

Code:

---

1 2	Dim MonTableau(2 to 15) as string Dim Montableau2(2 to 15, 5 to 500) as integer

---

Renseignez vous aussi sur ReDim, qui permet de maîtriser la dimension des tableaux à n dimensions dynamiques.