memoire insuffisante pendant l'execution d'une macro RESOLU

néné06

XLDnaute Accro

• 21 Décembre 2015

• #2

Re : memoire insuffisante pendant l'execution d'une macro

Bonjour miremy,

Te serait il possible de nous faire parvenir ta macro pour voir si des modifications sont possibles ?

A+

René

 

Dernière édition: 21 Décembre 2015

Vote positif 0 Vote négatif

M

miremy

XLDnaute Nouveau

• 21 Décembre 2015

• #3

Re : memoire insuffisante pendant l'execution d'une macro

Bonjour
Je suis sur Excel 2000
Je t'envoie un fichier ou j'ai recopie les macros
La macro est en colonne A
Je L'ai decomposee sur les autres colonnes

En fait c'est la macro "Sub SupMaj()" au niveau " P = tablo " qui pose problème.

 

Pièces jointes

• tricv.xls

  200 KB · Affichages: 59

Dernière édition: 21 Décembre 2015

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 21 Décembre 2015

• #4

Re : memoire insuffisante pendant l'execution d'une macro

Bonsoir miremy,


Set P = Range("C1" & Cells(Rows.Count, "C").Row) '* As tu vérifié le nombre de données, chargées en mémoire. (Rows.Count)=65536

tablo = P 'matrice, plus rapide

P = tablo '*****ICI LE PLANTAGE********La mémoire peut être pleine si 65536
For I = 1 To UBound(tablo)' Pendant l'exécution, placer un point arrêt et vérifier, en pas à pas, la valeur de UBound.


A+

René

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 21 Décembre 2015

• #5

Re : memoire insuffisante pendant l'execution d'une macro

Re,

Je te fais parvenir le code dans le "Module1" indenté, donc plus lisible.


A+

René

 

Pièces jointes

• tricvMod.xls

  347.5 KB · Affichages: 61

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2015

• #6

Re : memoire insuffisante pendant l'execution d'une macro

Bonjour,

Essayes cette instruction:

Set P = Range("C1 : D " & Cells.Find("*", , , , , xlPrevious).Row)
au lieu de
Set P = Range("C1 : D " & Cells(Rows.Count, "C").Row)

Avec ce changement, le tableau "P" ne prendra que les écritures et non les cases vides dans les cellules de C1 à D65536.

Testes et dis moi!

A+

René

 

Dernière édition: 22 Décembre 2015

Vote positif 0 Vote négatif

M

miremy

XLDnaute Nouveau

• 22 Décembre 2015

• #7

Re : memoire insuffisante pendant l'execution d'une macro

bonjour
Il vaut mieux que je te joigne un fichier que j'ai reduit.
Quand le message "mémoire insuffisante " apparait fais:
_ debogage
_enregistre le fichier
_execution continuer

comme çà la macro se termine ;Mais quand on a des classeurs de 2 ou 300 feuilles c'est fastidieux.

Il me faudrait trouver un moyen d'enregistrer le classeur périodiquement avant l'apparition du message

ci-joint:

 

Pièces jointes

• test.xls

  201.5 KB · Affichages: 60
• test.xls

  201.5 KB · Affichages: 60

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2015

• #8

Re : memoire insuffisante pendant l'execution d'une macro

Re,

J'ai essayé avec le changement proposé en #6 et sans le changement, chez moi, les programme ne plantent pas !
Peut être dû au fait que j'ai 8GO de mémoire ?

A+

René

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 22 Décembre 2015

• #9

Re : memoire insuffisante pendant l'execution d'une macro

Bonjour,
excusez mon intrusion et ma curiosité,
pourquoi ne pas considérer :

Code:

 Set P = Range("C1:D" & Cells(Rows.Count, "C").End(xlUp).Row)

pour éviter les 65 M lignes

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2015

• #10

Re : memoire insuffisante pendant l'execution d'une macro

Bonjours, Salut st007


@st007
Tu as raison, c'est pour cela que j'ai proposé:

Set P = Range("C1 : D " & Cells.Find("*", , , , , xlPrevious).Row), qui prend le numéro de la la dernière ligne ecrite dans une feuille.

Avec ta formule, cela est caïman la même chose !
Sur le nouveau programme posté, j'ai rajouté au début et à la fin:
Application.ScreenUpdating=..... afin d'accélérer la vitesse.

A+

René

 

Pièces jointes

• test.xls

  201.5 KB · Affichages: 51
• test.xls

  201.5 KB · Affichages: 55

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 22 Décembre 2015

• #11

Re : memoire insuffisante pendant l'execution d'une macro

re,

Ce programme ne plantant pas chez moi, ... non plus
je pensais contraindre un copy d'une cellule vide pour purger le presse papier entre chaque traitement d'onglets.

@ voir ...

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2015

• #12

Re : memoire insuffisante pendant l'execution d'une macro

Re,

@ st007

Peut être que , à défaut de Mem, ta solution libérerait de la mémoire.

A+

René

 

Vote positif 0 Vote négatif

M

miremy

XLDnaute Nouveau

• 22 Décembre 2015

• #13

Re : memoire insuffisante pendant l'execution d'une macro

bonjour st007
Ta solution a l'air de fonctionner je l'essaie en reel et je vous tiens au courant
Merci
Miremy

 

Dernière édition: 22 Décembre 2015

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 22 Décembre 2015

• #14

Re : memoire insuffisante pendant l'execution d'une macro

re,
Avec mes 1.7 Go de RAM sous XP et excel 2007, 0.97 sec toujours sans soucis de mémoire...

@ lire le demandeur

 

Pièces jointes

• test.xls

  212.5 KB · Affichages: 56
• test.xls

  212.5 KB · Affichages: 53

Vote positif 0 Vote négatif

M

miremy

XLDnaute Nouveau

• 22 Décembre 2015

• #15

Re : memoire insuffisante pendant l'execution d'une macro

En mettant :
Set P = Range("C1" & Cells(Rows.Count, "C").End(xlUp).Row)
Au lieu de :
Set P = Range("C1" & Cells(Rows.Count, "C").Row)
Cela fonctionne impeccable
Merci à vous pour vous etre penches sur mon probleme.
Miremy

 

Vote positif 0 Vote négatif