Votre regard et avis/amélioration sur un code

Question

Voilà déjà plusieurs heures que je passe sur un code me permettant de couper les enregistrements correspondants à un critère(date &lt; 2009) de la feuille D vers la feuille SD, puis "remonter" les enregistrements restants de la feuille D en A6. A force d'être la-dessus, j'ai des doutes et me demande malgré plusieurs tests si je n'ai pas adapté mes compteurs pour que çà fonctionne ou si vraiment le tout est exact. Ensuite, ayant utilisé macro, nouvelle macro pour avoir les codes pour la recopie de formule et de liste, je me retrouve avec une instruction ActiveWindow.SmallScroll Down Une fois je l'ai enlevée une autre fois je l'ai laissée. Je pense qu'elle n'est pas utile, si vous pouviez me le confirmer. Enfin, il faut sans doute dans mon code introduire plusieurs cas : 1) pas d'enregistrement du tout 2) uniquement des enregistrements &lt; 2009 3) uniquement des enregistrements =&gt; 2009 Je serais grandement aidé si vous pouviez vous penchez sur mon code. Vous en remerciant. Cordialement Joseph Voici le fichier (code en module 3) https://www.excel-pratique.com/~files/doc2/Archivage4Deplacements97_2003.xls...

galopin01 · Answer

Ca me semble correct. D'une manière générale toutes les instructions de déplacement (dont les Scrolll) sont inutiles donc tu peux supprimer. Pour le reste, difficile de travailler sur ce code. Yfaudrait optimiser un peu tous ces select... Ce qui me gène le plus ce n'est pas tant le code mais la conception des feuilles de calcul : Trois feuilles identiques avec les mêmes formules et les mêmes listes de validation est à mon avis une erreur de conception qui accroit grandement les risques d'erreur. Au pire les feuilles identiques devraient se déduire de la feuille de saisie par Copier / Collage Spécial Valeur. Mébon, peu importe la recette du moment que la soupe est bonne... Hein ! Pour info la manière dont je traiterais le problème. Remarquer la manière de traiter les formules complexes... La démo . A+...

galopin01 · Answer

Tu confirmes un peu ce que j'imaginais... Pour ce qui est d'archivages multiples je ne peux pas me prononcer... YFO voir ! Pour le NOActif, tu supposes bien... Une fois que tu as résolu une formule complexe kivaBien sur la première ligne et qui s'incrémente correctement sur les lignes suivantes, yapuka "encapsuler" la formule de ta première cellule dans un nom défini et le tour est joué. C'est quand même moins barbare que ces formules à rallonge qui vous tiennent 4 lignes dans la barre de formule... De plus au niveau VBA c'est nettement plus cool. Attention cependant : Au moment de la création de cette formule nommée, la CelluleActive doit être celle dont tu as récupéré la fameuse formule (kivaBien) Pourquoi il n'y a pas de bug ? Oh en cherchant bien on arriverait surement à planter le machin car j'ai fait au plus simple, c'est à dire que j'ai repris ton code ! Avec : LastRow = Sheets("D").Range("A6").End(xlDown).Row LastRow est toujours 50 qu'il y ait ou pas d'enregistrement ! Probablement que tu devras revoir cette ligne si tu adoptes ce code... Cette autre ligne est certainement meilleure (on ne parcourt que les enregistrements qui existent réellement) : LastRow = Sheets("D").Range("C65536").End(xlUp).Row Le code étant ce qu'il est, dans un premier temps la boucle parcourt des cellules vides : La fonction Year pour ces cellules vides renvoie 1899. VBA en déduit qu'il faut copier toutes les cellules vides et insère des lignes blanches dans la feuille SD jusqu'a ce qu'il rencontre de vraies dates avec de vraies données à copier et là ilinsère des lignes pleines et les lignes vides sont repoussées vers le bas... Ok ? Bon, sinon pour le bas-rhin j'ai rien contre... Mais ça va te revenir nettement plus cher A+...

galopin01 · Answer

Pourquoi range C plutot que A ? car la colonne A contient une formule (au moins dans ma démo...). C'est pourquoi End(xlUp) renvoie toujours 50 tandis que la colonne C renvoie des enregistrements effectifs... Ne t'inquiète pas 65536 ou 3000 YAPA de différence. Ce n'est pas une boucle mais probablement une fonction interne : VBA est capable de trouver directement la ligne concernée. On utilise donc directement cette notation comme une routine standart. 01/01/1900 c'est 1 donc si tu veux tester la date de A1 tu écriras : =SI(A1&gt;1;A1;"") Le presse-papier n'est pas un objet Excel mais Windows. Au fil des versions successives d'Excel, il est devenu de plus en plus difficile d'y accéder. T'inquiète pas : Moi aussi et comme mon asso est déjà bien assez lourde à gérer, je ne suis même pas certain d'avoir réellement beaucoup de temps à consacrer à d'autres projets. Mais on me trouve encore un peu en ligne ici ou là... Au plaisir ...