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

Réponse 2 / 7

gbinforme Messages postés 15478 Statut Contributeur 4 726

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.

Réponse 3 / 7

benjamin

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

Réponse 4 / 7

benjamin

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)

gbinforme Messages postés 15478 Statut Contributeur 4 726

Bonsoir,

Il va dans la feuille wk.Worksheets("Cumul").

C'est bien normal puisque tu as positionné la copie ainsi :
Set trouve2 = wk.Worksheets("Cumul").Rows(1).Cells.Find(bte, LookIn:=xlValues, LookAt:=xlWhole)
et c'est trouve2 qui est ciblé par ta recherche
Je n'ai pas touché les adresses, seulement la taille de la copie.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

benjamin

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

gbinforme Messages postés 15478 Statut Contributeur 4 726

Bonjour benjamin,

L'application verifie si ce texte constitue un titre de champ.

Dans ton code il n'y a aucune vérification.

il copie toute la colonne concernée ... à la derniere ligne non vide de cette colonne

Comme tu fais tu es positionné en ligne 1

Ton code est lancé par une autre macro. Ces macros sont dans quel classeur ou dans ton fichier perso ?

Réponse 6 / 7

benjamin

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).

Réponse 7 / 7

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 279

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

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 feuillewk.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)

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

7 réponses

Votre réponse

Discussions similaires