Sujet Précédent Sujet Suivant

Macros excel et mémoire paginée

Résolu/Fermé
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 mars 2009 à 13:55
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 mars 2009 à 16:03
Bonjour aux spécialistes,
Juste une petite question toute bête :
Est ce que l'excès de macros sous excel peux faire planter un serveur par manque de mémoire paginée?
A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
17 mars 2009 à 14:31
bonjour,
si dans tes macros, tu utilises des "select", des goto, tu ne remets pas à "nothing" en fin de macro les instantiations (néologisme?, c' est à dire l'utilisation des "set machin=..."), tu utilises beaucoup de mémoire... le changement de page n'est jamais très sain
on peut toujours augmenter la taille des buffers mais....
autre chose: éviter les récurrences avec VBA (dommage, j'aime bien)
0
Réponse 2 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 747
17 mars 2009 à 14:36
Merci de ta réponse rapide.
Comment utiliser le nothing alors?
Qu'est ce qu'une récurrence?
0
Réponse 3 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
17 mars 2009 à 17:20
re,

1/ avant end sub
set machin=nothing

2/ Récurrence
dans la macro ci dessous" supprimer avec condition" on supprime la ligne si il y a marqué "mois de..." et on rappelle la macro: c'est la récurrence. la macro s'arrête lorsque l'on trouve la valeur: l'erreur fait sortir de la macro
chez moi en monoposte, je plante à environ 1170 récurrences "saturation de la pile" 

Sub supprimer_avec_condition()

Application.ScreenUpdating = False

On Error Resume Next
lig = Columns(1).Find("mois de", Range("A65536"), , xlPart).Row
Rows(lig).Delete
If Err.Number > 0 Then: End

supprimer_avec_condition

End Sub


Edit 17:23 valable si XL<2007
0
Réponse 4 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 747
18 mars 2009 à 16:03
Salut,
Ok merci. J'avoue honnêtement ne pas tout avoir compris mais je vais néanmoins mettre ce fil en "résolu".
Merci encore
@+
0