Augmenter l'espace mémoire réservée à excel Fermé

Question

Bonjour les amis!
Est il possible d'augmenter l'espace mémoire réservée à excel?
En effet, je dispose d'un classeur qui porte assez d'informations. Après exécution de mes commandes VBA qui consiste a copier une colonne précise d'une feuille pour la coller dans une autre feuille, un message d'erreur s'affiche: Excel ne dispose pas assez de ressources pour exécuter cette tache. veuillez réduire les données ou fermer des applications..
Aidez moi a trouver une commande VBA pour me permettre de gerer ce probleme.

gbinforme · Answer

Bonjour,

Au lieu de copier ta colonne entière qui est assez énorme avec les dernières versions d'excel, tu devrais te limiter à la taille des données effectives de la colonne.

benjamin · Answer

Merci pour ta reponse!
S'il te plait aide moi à insérer ce code dans mon programme ci dessous. c'est  au niveau de la ligne en gras que se trouve le problème


Sub copy_cumul(ByRef wk As Workbook)
Dim trouve1 As Range
Dim trouve2 As Range
Dim bte
Application.ScreenUpdating = False

Do While trouve1 Is Nothing Or trouve2 Is Nothing
bte = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : Janvier 2014", "CHOIX DU MOIS!!!")
Set trouve1 = Workbooks("Tampon.xlsx").Worksheets("tamp_cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole)
Set trouve2 = wk.Worksheets("Cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole)
Loop
col1 = Split(Range(trouve1.Address).Address, "$")(1)
col2 = Split(Range(trouve2.Address).Address, "$")(1)
trouve1.EntireColumn.Copy trouve2
 Application.ScreenUpdating = True
 End Sub

gbinforme · Answer

Bonjour benjamin,

Tu remplaces ta ligne par ceci :
Dim derlig As Longderlig = Cells(Rows.Count, trouve1.Column).End(xlUp).RowCells(trouve1.Row, trouve1.Column).Resize(derlig, 1).Copy trouve2 
Tu peux aussi supprimer les 2 lignes qui précédent (col1...col2) qui sont inutiles.

eriiic · Answer

Bonjour,

en complément de la proposition de gb, tu pourrais contrôler la taille de la mémoire virtuelle affectée (mais c'est plus lent que d'ajouter de la RAM qui n'est pas trop chère) :
'Panneau de configuration / système / paramètres système avancés', onglet 'paramètres système avancés' zone 'Performances' cliquer sur 'Paramètres', onglet 'Avancé', regarder la taille de la mémoire virtuelle.
Conseillé : 1 fois la taille de la RAM. Si tu as peu de RAM tu peux forcer à 1.5 ou 2 fois.
Si c'est en Auto (bouton 'modifier...' pour le voir) et que tu en as peu, nettoie un peu ton HD en faisant de la place et en faisant une défragmentation.
Sinon tu peux mettre une taille fixe plus grande (défragmenter avant si la taille max proposée te parait trop faible)

eric

benjamin · Answer

Merci!!!! 

Apres execution de la syntaxe de gbinforme, je devais m'attendre à une action de copie d'une colonne de  Workbooks("Tampon.xlsx").Worksheets("tamp_cumul").  pour la coller vers wk.Worksheets("Cumul"). 

Par contre le resultat est autre. 

Il va dans la feuille wk.Worksheets("Cumul").et efface le contenu de la cellule reperee par trouve1 (qui n'est toute autre que le texte saisi dans l'inputbox bte)

benjamin · Answer

Merci gbinforme!!
je vois que tu t'interesse a mon probleme.
Voila ce que je desirais effectuer.
Je fais apparaitre un inputbox dans lequel je saisi un texte qui represente un  titre de champ dans Workbooks("Tampon.xlsx").Worksheets("tamp_cumul").
L'application verifie si ce texte constitue un titre de champ. Si oui, il copie toute la colonne concernée (a commencer par le titre de champs à la derniere ligne non vide de cette colonne correspondante).
Apres m'avoir envoye ton programme, voila ce que j'ai fais et qui ne marche pas.
Aide moi a retrouver l'erreur que j'ai faite.

Sub copy_cumul(ByRef wk As Workbook)
Dim trouve1 As Range
Dim trouve2 As Range
Dim bte
dim derlig  as long
Application.ScreenUpdating = False

Do While trouve1 Is Nothing Or trouve2 Is Nothing
bte = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : Janvier 2014", "CHOIX DU MOIS!!!")
Set trouve1 = Workbooks("Tampon.xlsx").Worksheets("tamp_cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole)
Set trouve2 = wk.Worksheets("Cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole)
Loop
derlig = Cells(Rows.Count, trouve1.Column).End(xlUp).Row
Cells(trouve1.Row, trouve1.Column).Resize(derlig, 1).Copy trouve2
Application.ScreenUpdating = True
End Sub

benjamin · Answer

Merci!
Ce code permet de rechercher le mot saisi dans linputbox, tant au niveau de la feuille tamp_cumul qu'au niveau de  la feuille cumul

Set trouve1 = Workbooks("Tampon.xlsx").Worksheets("tamp_cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole) 
Set trouve2 = wk.Worksheets("Cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole) 
NB: wk fait reference ouvert à travers une boite de dialogue.

Mon programme VBA est dans un classeur nommé APP_DNB.
Exemple pratique:
Si je saisi fevrier dans l'inputbox, l'application ce mot dans les cellules de la  premiere ligne de  ("Tampon.xlsx").Worksheets("tamp_cumul") et dans les cellules de la premiere ligne de wk.Worksheets("Cumul").

Ce que je veux, c'est qu'une fois que ce mot fevrier est trouvé dans  ("Tampon.xlsx").Worksheets("tamp_cumul")  , il copie la colonne correspondante ( de la premiere cellule a la dernier cellule non vide) et la colle dans wk.Worksheets("Cumul").
 j'ai besoin de ce code. Et je crois qu'il doit etre ecrit juste à la fin du boucle do while (c'est à dire juste apres le loop).

Augmenter l'espace mémoire réservée à excel

7 réponses

Discussions similaires