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

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

Bonjour benjamin,

Tu remplaces ta ligne par ceci :

Dim derlig As Long
derlig = Cells(Rows.Count, trouve1.Column).End(xlUp).Row
Cells(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.

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

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)

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

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