Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
948 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mémoire insuffisante

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Mémoire insuffisante

n°1430331
maison95
Posté le 24-08-2006 à 07:03:28  profilanswer
 

Bonjour,
 
Quand je lance ma macro excel (vb 6), j'ai une box qui apparaît avec le message "Mémoire Insuffisante".
 
Pourtant pas de graph ... Mais une quarantaine de feuilles dans le classeur.
 
Avez-vous une idée ?
 
Merci par avance

mood
Publicité
Posté le 24-08-2006 à 07:03:28  profilanswer
 

n°1430333
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 24-08-2006 à 07:22:17  profilanswer
 

A mon avis, je parie sur ..... un manque de mémoire ?
Le message n'est pas assez clair ?


---------------
J'ai un string dans l'array (Paris Hilton)
n°1430343
maison95
Posté le 24-08-2006 à 08:32:15  profilanswer
 

Ca j'avais compris LOL  
Mais existe t'il une solution pour en libérer ...

n°1430348
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 24-08-2006 à 08:51:51  profilanswer
 

Oui, alléger un peu ton classeur et partager tes feuilles entre différents classeurs plutot que de tout regrouper dans un seul... Fermer des applications... Rajouter de la mémoire...


---------------
J'ai un string dans l'array (Paris Hilton)
n°1430363
galopin01
Posté le 24-08-2006 à 09:37:36  profilanswer
 

bonjour,
Si c'est sur le lancement d'une macro celà provient surement d'autre chose...
Le débogage nest pas proposé ?
Quelle est la taille du classeur ?
A+


Message édité par galopin01 le 24-08-2006 à 09:39:41
n°1430364
maison95
Posté le 24-08-2006 à 09:39:02  profilanswer
 

non c'est en plein milieu ...

n°1430369
galopin01
Posté le 24-08-2006 à 09:45:22  profilanswer
 

Quelle est la taille du classeur ? (en Ko ou Mo)
Quelle genre du feuilles ? Des bases de données de 40 000 enregistrements ou de petits tableaux de quelques lignes avec de nombreuses formules et des images, des graphismes, ou des contrôles graphiques, (boutons, TextBox...)
Quel genre de macro (afficher le code)


Message édité par galopin01 le 24-08-2006 à 09:46:10
n°1430392
maison95
Posté le 24-08-2006 à 10:07:56  profilanswer
 

Taille du classeur : 1.14 Mo
Des petits tableaux d'une quarantaine de lignes, pas d'images, pas de graph, pas de formulaires ...
 
Merci par avance,
 

Code :
  1. Sheets("data" ).Select
  2. Selection.AutoFilter Field:=3, Criteria1:="=*/" & Mois, Operator:=xlAnd
  3. Selection.AutoFilter Field:=5, Criteria1:="=Ile De France Sud", Operator:=xlAnd
  4. Range("A65536:Q1" ).Copy Sheets("Ile De France Sud" ).Range("A1:Q1" )
  5. Worksheets("Stats par Délégation" ).Range("F22" ).Value = "=CountIf('Ile De France Sud'!M:Q,""2 Soleils"" )"
  6. Worksheets("Stats par Délégation" ).Range("H22" ).Value = "=CountIf('Ile De France Sud'!M:Q,""1 Soleil"" )"
  7. Worksheets("Stats par Délégation" ).Range("J22" ).Value = "=CountIf('Ile De France Sud'!M:Q,""Nuageux"" )"
  8. Worksheets("Stats par Délégation" ).Range("L22" ).Value = "=CountIf('Ile De France Sud'!M:Q,""Pluvieux"" )"
  9. Worksheets("Stats par Délégation" ).Range("N22" ).Value = "=CountIf('Ile De France Sud'!M:Q,""Sans Réponse"" )"
  11. Sheets("data" ).Select
  12. Selection.AutoFilter Field:=3, Criteria1:="=*/" & Mois, Operator:=xlAnd
  13. Selection.AutoFilter Field:=5, Criteria1:="=Lorraine", Operator:=xlAnd
  14. Range("A65536:Q1" ).Copy Sheets("Lorraine" ).Range("A1:Q1" )
  15. Worksheets("Stats par Délégation" ).Range("F23" ).Value = "=CountIf('Lorraine'!M:Q,""2 Soleils"" )"
  16. Worksheets("Stats par Délégation" ).Range("H23" ).Value = "=CountIf('Lorraine'!M:Q,""1 Soleil"" )"
  17. Worksheets("Stats par Délégation" ).Range("J23" ).Value = "=CountIf('Lorraine'!M:Q,""Nuageux"" )"
  18. Worksheets("Stats par Délégation" ).Range("L23" ).Value = "=CountIf('Lorraine'!M:Q,""Pluvieux"" )"
  19. Worksheets("Stats par Délégation" ).Range("N23" ).Value = "=CountIf('Lorraine'!M:Q,""Sans Réponse"" )"
  21. Sheets("data" ).Select
  22. Selection.AutoFilter Field:=3, Criteria1:="=*/" & Mois, Operator:=xlAnd
  23. Selection.AutoFilter Field:=5, Criteria1:="=Marseille Provence", Operator:=xlAnd
  24. Range("A65536:Q1" ).Copy Sheets("Marseille Provence" ).Range("A1:Q1" )
  25. Worksheets("Stats par Délégation" ).Range("F24" ).Value = "=CountIf('Marseille Provence'!M:Q,""2 Soleils"" )"
  26. Worksheets("Stats par Délégation" ).Range("H24" ).Value = "=CountIf('Marseille Provence'!M:Q,""1 Soleil"" )"
  27. Worksheets("Stats par Délégation" ).Range("J24" ).Value = "=CountIf('Marseille Provence'!M:Q,""Nuageux"" )"
  28. Worksheets("Stats par Délégation" ).Range("L24" ).Value = "=CountIf('Marseille Provence'!M:Q,""Pluvieux"" )"
  29. Worksheets("Stats par Délégation" ).Range("N24" ).Value = "=CountIf('Marseille Provence'!M:Q,""Sans Réponse"" )"
  31. ****ICI CA BUG quand je répète une nouvelle fois le code !!****
  33. Selection.AutoFilter


Message édité par maison95 le 24-08-2006 à 10:08:31
n°1430415
galopin01
Posté le 24-08-2006 à 10:37:55  profilanswer
 

Bonjour,
Dans ce contexte réfléchir à une limitation d'AutoFilter ou à vider le Clipboard, ton code est pas trop optimisé...
Si ton classeur est pas trop "sensible" tu peux me l'envoyer (zippé) à cette adresse :
http://perso.orange.fr/galopin01/images/email.jpg
Je dois sortir un moment.
A+

n°1430421
galopin01
Posté le 24-08-2006 à 10:46:54  profilanswer
 

Si tes tableaux n'ont qu'une quarantaine de ligne tu pourrais déjà commencer par corriger ces :
Range("A65536:Q1" ).Copy :  
à chaque fois tu copy 1 500 000 cellules vides... (65000 x 22 !)
ça doit pas aider la mémoire à travailler...


Message édité par galopin01 le 24-08-2006 à 16:37:22

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mémoire insuffisante

 

Sujets relatifs
Probleme de MemoireConnaître la mémoire libre de la JVM?
manipulation de std::vector problème de mémoireColler une valeur en mémoire en provenance d'excel dans une macro
[flash/AS] Fuite de memoire[.NET] Objet Graphics, DrawImage et occupation mémoire
Erreur d'execution '7' : Mémoire insuffisanteGROS PROBLEME sous VBA word...Memoire insuffisante?
Mémoire insuffisante HelpAccess 2000 :Mémoire libre insuffisante pour mettre à jour l'affichage
Plus de sujets relatifs à : Mémoire insuffisante

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.083 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR