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

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!!!!

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)

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

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.

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,

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.