Trie ou décaler complexe

[Temjeh]

Bonjour à tous

J,ai encore un décalage(trie) spécial à faire. Le voici:

J'ai un trie avant celui-là qui me sépare les pairs et impairs qui fonctionne très biens.
Et qui ensuite me décale les données aux multiple de 20 + 1.
Ex: trie par col D les lignes ... et si valeur col D est différente décale les suivante aux multiples de 20+1.
Si en cell D1àD18 j'ai la rue Bossuet et D19 est Toulouse là il me décale et met la ligne toulouse en cell D21 et même chose si il y a changement de Toulouse met en 41 ..61 ..81...etc.
Le tout fonctionne a merveille.

Voici ma question:
Je voudrais que...
Si la valeur de la activecell ligne MOD 20 + 1 (D21,D41,D61,D81,D101..etc) eST égale a celle de 20 plus loins on décale celle-là a la prochaine quarantaine si la ligne -1 est ne se divise pas par 40.

Donc si mon trie les trie à la vintaine+1

Si en vérifiant D41 il voit un changement en D61 fait riens car D41 -1 est MOD40
Par contre si D61 est pareil à D81 (D61 - 1 n'est pas MOD40) il décale les lignes de D61 et plus a D81

Espérant avoir été assez clair

Voici le code:
http://pages.videotron.com/temjeh/code.htm

Merci beaucoup

Temjeh

Message édité par: Temjeh, à: 23/04/2006 15:18

Message édité par: Temjeh, à: 23/04/2006 15:18

 

[Tibo]

Salut Temjeh,

Peux-tu nous mettre un petit extrait de ton fichier ?

Ca nous aiderait à mieux comprendre.

@+

 

[Temjeh]

Merci voici un fichier

Temjeh [file name=Decal1.zip size=9978]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Decal1.zip[/file]

 

[Tibo]

Re,

Je ne suis pas du tout (mais alors pas du tout ) un spécialiste vba.

J'ai quand même regardé la macro et j'ai vu que tu faisais du modulo 20.

J'ai donc remplacé 20 par 40 ainsi qu'un 19 par un 39

Essaye et dis-nous si ça marche comme tu veux [file name=DecalAGE.zip size=8191]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DecalAGE.zip[/file]

 

[Temjeh]

Merci

Oui moi aussi je l'avais fait car elle servait pour la quarantaine avant.

J'aimerais garder le mod 20

Donc mettre une condition:

J'ai fait ceci si on peut me mettre cela d'une boucle en col D:

If Cell.Row - 1 Mod 20 = 0 And Cell.Value = Cell(21, 1).Value Then
IInsert ligne jusqu'a la next ligne mod 40 +1

Merci

Temjeh

Message édité par: Temjeh, à: 24/04/2006 00:09

 

[laM]

Bonjour

Au cas où vous n'auriez pas encore de solution...
Voilà un petit essai à partir de votre programme.


Au revoir, à bientôt [file name=DesCalins.zip size=10700]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DesCalins.zip[/file]

 

[Temjeh]

Merci beaucoup

j'examine le tout. Oui malheureusement quand je suis pas clair je suis obligé le lendemain de reposer mais avec exemple et plus simple, on m'a guider ici. Je conserve quand même ton code

Lien supprimé

Temjeh