simplifier une procédure

Citation:

---

Envoyé par huître

le nouvelle procédure regroupe les 5 procédures
[snip]
est ce qu'il serait possible de faire en sorte que le precessus prend entre 10 et 20 seconde

---

Bon... alors... comment dire...
1- ta procédure n'est pas la même avant et après, puisque, sauf erreur de ma part, dans la deuxième, tu te mets à tester sur dans un bloc de cellules données (de C2 à C6) il y a le nom de la feuille en cours de traitement. Mais, je n'ai pas trouvé ce test là.
2- Même si on parvenait à diminuer le temps de traitement nécessaire, il ne faut pas oublier que ce qui te fera gagner ENORMEMENT de temps, c'est la limitation du volume de données à importer.
D'autre part, ne sachant pas le temps que cela met actuellement, n'ayant pas les données sous les yeux, n'ayant pas les caractéristiques de ton PC, il semble difficile, à brûle-pourpoint de dire si on pourra descendre à 10-20 secondes !
3- pourrais-tu au moins fournir une explication de ce que fait ta macro ?

non tampis pour ca c'est un peu compliqué à expliquer à la rigueur je ferai un schema pour mieux visualiser


alors pour la requete SGBDO je me suis renseigné aupres du service et apparement ce n'est pas possible de la créer

parcontre j'ai trouver la source du probleme :mrgreen:
la procedure marcherait rapidement si l'on supprime les lignes par tas et non une par une comme je le fais dans la boucle

donc l'idéal serait de faire un tri sur le champs clé et puis de supprimer tout le tas contenant les mm valeur

mais je ne vois pas du tout comment faire
donc voila ce que j'ai fait

j'ai enregistré une macro qui case dans une colonne vide une formule qui met 1 pour les valeurs initial et 0 pour les doubles
ensuite je fais un tri sur cette colonne
(je tiens à préciser que c'est une macro enregistrée)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro5() ' ' Macro5 Macro ' Macro enregistrée le 29/04/2011 par GHAMMYOUNE '   ' Columns("AE:AE").Select Range("A1:AG18663").Sort Key1:=Range("AE1"), Order1:=xlAscending, Header _ :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _ , DataOption1:=xlSortNormal Selection.ColumnWidth = 10.71 Range("AG2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]=R[1]C[-2],0,1)" Range("AG2").Select Selection.AutoFill Destination:=Range("AG2:AG14328") Range("AG2:AG14328").Select End Sub

---

voila mais maintenant je ne sais pas faire pour selectionner tout le tas de 0 et de supprimer c'est lignes

on m'a parler de

Code:

---

1 2 3 4

a = 0 Do a = a + 1 Loop Until Cells(a, 1) = ""

---

mais je n'arrive pas comprendre