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