> Tous les forums > Forum Bureautique
 excel ne peut pas terminer cette tacheSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Azmo
  Posté le 05/08/2009 @ 19:21 
Aller en bas de la page 
Petit astucien

Bonjour a tous,

Voila je débute dans le code et je me heurte a un problème avec une macro.

Voici le code:

Sheets("Tickets_-_Liste").Select
ActiveSheet.Range("$A$1:$X$20000").AutoFilter Field:=16
ActiveSheet.Range("$A$1:$X$20000").AutoFilter Field:=21
ActiveSheet.Range("$A$1:$X$20000").AutoFilter Field:=17
ActiveSheet.Range("$A$1:$X$20000").AutoFilter Field:=3, Criteria1:= _
"=Bloquante"
Cells.Select
Range("D1").Activate
Selection.Copy
Sheets("Tickets Bloquants").Select
Range("A1").Select
ActiveSheet.Paste

Comme vous pouvez le voir ce n'est pas du haut vol....

Bon les trois premiers AutoFilter Field c'est parcequ'il y a d'autres opérations préalables, et que je tiens a remettre la feuille "a plat" avant de lancer les commandes qui suivent. En suite je fais un simple tri, et je souhaite faire un copier/coller des lignes ainsi obtenues. Hors au moment de coller voilà ce qu'Excel me répond:

"Excel ne peut pas terminer cette tache avec les ressources disponibles.Sélectionnez moins de données ou fermez des applications"

J'ai bien entendu veillé a n'avoir aucune autre appli ouverte en même temps, et les ressources de mon pc ne sont même pas utilisées a moitié.

Peut-être s'agit-il d'une attribution des ressources aux différentes applis dans Windows....

Si quelqu'un a une idée je suis preneur, merci d'avance ;)

P.S J'utilise Widows XPpro SP3 et Office 2007pro

Publicité
ferrand
 Posté le 05/08/2009 à 23:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Ton code me paraît un peu lourd, issu probablement, su moins en partie, d'une macro enregistrée.

Avec Cells.Select tu sélectionnes la feuille entière pour la recopier ensuite. Et je ne saisis pas l'utilité d'activer la cellule D1 pour cette opération. Ta macro est-elle complète ?

Quoi qu'il en soit, si ton objectif est de filtrer une liste et de dupliquer le résultat du filtrage sur une autre feuille, je me contenterais simplement :

Worksheets("Tickets_-_Liste").Range("A1:X20000") _
.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tickets Bloquants").Range("A1")

Ce qui précède Cells.Select peut aussi être un peu simplifié, ce qui donnerait:

With Worksheets("Tickets_-_Liste").Range("A1:X20000")
.AutoFilter Field:=16
.AutoFilter Field:=21
.AutoFilter Field:=17
.AutoFilter Field:=3, Criteria1:="=Bloquante"
.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tickets Bloquants").Range("A1")
End With

Azmo
 Posté le 06/08/2009 à 11:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci ferrand,

Oui effectivement une partie du code est issue de l'enregistreur, comme j'essaie d'apprendre seul je me suis dit que c'était un bon moyen pour débuter.

Je vais donc alléger mon code avec ce que tu m'as fourni, en espérant que résoudra le problème de ressources d'excel sur ce point.

Je te dirais si ça a fonctionné. En tous cas merci pour le code ;)

ferrand
 Posté le 06/08/2009 à 15:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

OK à suivre {#}

Azmo
 Posté le 06/08/2009 à 16:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Parfait!!

Ca fonctionne sans soucis.

Encore Merci ferrand ;)

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
24,99 €Souris Logitech Marathon Mouse M705 à 24,99 €
Valable jusqu'au 24 Février

Amazon fait une promotion sur la souris Logitech Marathon Mouse M705 qui passe à 24,99 € livrée gratuitement. On la trouve ailleurs à partir de 39 €. Cette souris sans fil dispose d'un capteur laser pour un contrôle précis sur toutes les surfaces. Vous bénéficierez d’une autonomie des piles allant jusqu'à trois ans.


> Voir l'offre
227,94 €Disque dur externe Western Digital My Book 12 To USB 3.0 à 227,94 €
Valable jusqu'au 23 Février

Bonne affaire actuellement sur Amazon qui  propose le disque dur externe Western Digital My Book 12 To USB 3.0 à 227,94 € livré gratuitement alors qu'on le trouve ailleurs à partir de 300 €. Avec ses 12 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker vos backup, vos films et vos photos, etc. 


> Voir l'offre
34,90 €Caméra de surveillance TP-Link Tapo C200 à 34,90 €
Valable jusqu'au 26 Février

Amazon fait une promotion sur la caméra de surveillance TP-Link Tapo C200 qui passe à 34,90 € livrée gratuitement au lieu d'une quarantaine d'euros ailleurs. Cette caméra se connecte à votre réseau en WiFi et peut ensuite être contrôlée à distance. Elle offre une définition FullHD 1080p, la vision nocturne, la détection de mouvements (recevez une notification si quelque chose est détecté), une alarme sonore et visuelle. Le stockage se fait en local sur une carte MicroSD.


> Voir l'offre

Sujets relatifs
Excel ne peut pas terminer cette tâche avec erreur de ressources disponible
Excel ne peut pas terminer cette tâche avec erreur de ressources disponible
Fichier EXCEL ne peut s'ouvrir
Peut-on convertir "word" et "excel" en logiciel portable
[EXCEL 2010] Peut-on changer l'apparence des feuilles sélectionnées ?
Excel message sur la barre de tache
formule excel ou peut etre impossible
peut on créé une base de donnée a partir d' excel
Peut-on cloner un classeur Excel?
Money : Serveur ne peut traiter cette demande
Plus de sujets relatifs à excel ne peut pas terminer cette tache
 > Tous les forums > Forum Bureautique