A voir également:
- Temps de suppression de lignes enorme en vba
- Forcer suppression fichier - Guide
- Site de vente en ligne particulier - Guide
- Blocage agriculteur carte en temps réel - Accueil - Transports & Cartes
- Partage de photos en ligne - Guide
- Renommer plusieurs fichiers en même temps - Guide
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 708
20 mars 2009 à 22:41
20 mars 2009 à 22:41
bonjour
Ton code est tout à fait correct même si tu peux le simplifier ainsi :
N'as tu pas une utilisation importante de cellules dans ton traitement d'importation de tes fichiers ?
Regardes la taille de ton classeur : n'est-elle pas un peu importante ?
Une procédure comme la tienne devrait s'exécuter en instantané en enlevant l'affichage.
Ton code est tout à fait correct même si tu peux le simplifier ainsi :
i = 7
Application.ScreenUpdating = False
While Cells(i + 1, 1) <> ""
If Cells(i, 2) = Cells(i + 1, 2) Then
Cells(i, 3) = Cells(i + 1, 3)
Cells(i, 4) = Cells(i + 1, 4)
Rows(i + 1).Delete
End If
i = i + 1
Wend
N'as tu pas une utilisation importante de cellules dans ton traitement d'importation de tes fichiers ?
Regardes la taille de ton classeur : n'est-elle pas un peu importante ?
Une procédure comme la tienne devrait s'exécuter en instantané en enlevant l'affichage.
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
24 mars 2009 à 12:36
24 mars 2009 à 12:36
Bonjour,
Difficile de t'aider sans avoir tes données, tu peu mettre une copie de ton classeur avec les données à trier (les fichiers déjà copier) sur Cjoint.com et mettre le lien dans un poste suivant.
A+
Difficile de t'aider sans avoir tes données, tu peu mettre une copie de ton classeur avec les données à trier (les fichiers déjà copier) sur Cjoint.com et mettre le lien dans un poste suivant.
A+
Bonjour
Je ne peux pas t'envoyer le fichier car il s'agit de données confidentielles qui m'obligeraient à completement modifier mes données pour pouvoir le diffuser sur le net.
L'application que je tente d'installer est une appli professionnelle.
En fait, je me suis aperçue que lorsque je fais la macro à la maison, elle s'exécute en un rien de temps (quelques secondes)
Par contre au bureau, c'est le festival. 10 minutes en gros sur le reseau.
Et là, je ne sais plus que penser, et comment solutionner mon problème
Help
Je ne peux pas t'envoyer le fichier car il s'agit de données confidentielles qui m'obligeraient à completement modifier mes données pour pouvoir le diffuser sur le net.
L'application que je tente d'installer est une appli professionnelle.
En fait, je me suis aperçue que lorsque je fais la macro à la maison, elle s'exécute en un rien de temps (quelques secondes)
Par contre au bureau, c'est le festival. 10 minutes en gros sur le reseau.
Et là, je ne sais plus que penser, et comment solutionner mon problème
Help
24 mars 2009 à 12:03
Merci pour ta réponse mais en fait , cela n'a rien changé quant au déroulement de la macro.
Mon fichier initial fait 250k. il a 214 lignes au départ, auxquelles se rajoutent 200 lignes avant la suppression.
Ce qu'il faut savoir, c'est que je crée des menus déroulants sur toutes les lignes que je rajoute (3 menus déroulants par ligne).
Je pars d'un fichier avec un certain nb de lignes, je lis mes 6 fichiers en séquence et je rajoute les lignes à la suite, je fais de l'encadrement pour faire beau, je trie les lignes pour ensuite supprimer les doublons.
Si je fais du pas à pas sur la suppression, au debut c'est instantanné, puis, plus ça va, plus la commande rows.delete prend du temps (en tout 15 minutes pour supprimer 200 lignes)
En plus, j'ai l'impression que cela ouvre une autre fenêtre excel (gestionnaire des taches)
J'ai l'impression que toutes les ressources ne sont pas libérées quand je ferme mes fichiers( le gestionnaire des taches indique qu'excel tourne à 99%), alors qu'au début, lors de la récupération des fichiers
Est-ce un problème de libération de ressources ?
J'utilise peu de variables car sur les fichiers en entrée, je ne récupère que 6 cellules par ligne
Que puis-je faire ?