Trie complexe

[Temjeh]

Bonjour le forum

Merci à tous

J'ai une loope à faire très complexe

Je veux isoler mes lignes par quarantaine sur mes col A:H
En col D il y a des noms de rue
En col B le no d'adresse

Voici la loope du genre:

-Tant que Cell D = Cell D et que Cell B ne change pas de pair ou impair (modulo)...next
-Si la valeur de col D ou de B (pair ou impair) change ont insère des lignes vides jusquà quarante
-Donc les données suivantes sont poussées à ligne 41 ...ensuite 81 ....121 ect

Merci beaucoup pour des suggestion

Temjeh

Je reviens plus tard au diner

 

[Hervé]

Salut temjeh, le forum

en piece jointe, une proposition, si j'ai bien compris.


salut [file name=Classeur2_20051202141733.zip size=8871]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051202141733.zip[/file]

Message édité par: Hervé, à: 02/12/2005 14:17

 

[Hervé]

re

Une autre approche afin de tenir compte des pairs et impairs.

salut [file name=Classeur3_20051202144743.zip size=9068]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20051202144743.zip[/file]

 

[Temjeh]

Merci beaucoup Hervé

Ta proposition est super!!

Juste 2 ptit bug (ptêtre mineur)

1Quand je clic il met le suivant à 43 et non à 41(il ajoute 40 mais ne soustrait pas sa ligne et le suivant à 84 aulieu de 81)

2L'autre si on peut lui mettre un stop ...que mes donnés sont déjà trier il ne me les retrie pas pour me les repousser encore plus loin.
Mais je pense contourner cela en exécutant ton supprime ligne avant et trie ensuite donc ptètre juste pour le bug 1

Milles merci je t'envoie un chèque

Temjeh

 

[Temjeh]

Oups aussi si tu peut changer la colonne E des adresse pour B

Je suis impressionné du code!!!!!!

Temjeh

 

[Hervé]

salut temjeh

merci pour ton enthousiasme.

pour le premier 'bug' (pour rappel, un bug : Erreur de programmation provoquant un dysfonctionnement logiciel, entraînant parfois le blocage de l'ordinateur.)

dans ton premier post tu demandais de rajouter 40 lignes, maintenant tu voudrais que le code sépare les lignes sur un multiple de 40 ?

pour ceci il te faut jouer avec les lignes :

Rows(ligne + 1 & ':' & ligne + 40).Insert ' qui insert les lignes

et

ligne = ligne + 41 'qui incrémente le numéro de ligne pour la suite du code

Je te laisse faire ceci, tu devrais t'en sortir.

sinon reviens nous voir.

pour le 2ème 'bug' (je te passe le rappel) soit tu utilises le code pour supprimer les ligne, soit tu faire inscrit dans une cellule à la fin du code le mot 'STOP' dans une cellule, et en début de code, tu teste cette cellule.

Je préfère la suppression des lignes, bien plus pratique en cas de modifications des données apres le lancement de la macro.

salut

 

[Temjeh]

Merci Hervé

Effectivement il ni avait pas de bug!!

Merci beaucoup je joue avec le code

Temjeh

 

[Temjeh]

Rebonjour à tous

J'ai relue ma question et ce que je demandait n'était pas d'ajouté 40 ligne mais bien d'inséré des lignes jusqu'au prochain Mod 40 et repartir la loop à Mod 40 + 1 soit
41,81,121,161,201,241...ect

Donc si j'ai 3 rue au départ il me place les suivantes à 41 donc insère 37 lignes vides. Le prob vient que pour la 2ème loop si j'ai 25 rues il doit inséré 15 lignes. Donc le nombre de lignes a ajoutées est variable !!

Si quelqu'un ou toi Hervé à une piste

Le trie doit être:

Ligne 1 ....rue AAA
Ligne 2 ....rue AAA
Ligne 3 ....rue AAA

...

Ligne 41 ....rue BBB
Ligne 42 ....rue BBB
Ligne 43 ....rue BBB
Ligne 44 ....rue BBB
Ligne 45 ....rue BBB
Ligne 46 ....rue BBB
Ligne 47 ....rue BBB

...

Ligne 81....rue CCC
Ligne 82....rue CCC
Ligne 83....rue CCC
Ligne 84....rue CCC

...

Ligne 121....rue DDD

Merci de votre aide

Temjeh

 

[Hervé]

re temjeh

en pièce jointe, nouvelle proposition.

salut [file name=Classeur3_20051203192258.zip size=9178]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20051203192258.zip[/file]

 

[Temjeh]

Merci Hervé pour cette belle solution

Vite regardé c'est très bon

Je vais au travail(et oui un samedi)
Je te redonne des nouvelles demain


Bravo!

Temjeh

 

[Temjeh]

Me revoilà

Ce n'est pas un bug mais juste une dernière faveur

Le code est parfait en autant que j'ai 39 adresses de même rue ou moins. Si j'ai plus il me trie de travers.

Ex:

Si j'ai 44 adresses il doit envoyer les suivantes à 81 et si j'ai des adresses de même rue de ligne 81 à 133 il met les prochaines à 161

Merci mille fois

Temjeh

(Je te joint le fichier) [file name=Classeur3_20051204025923.zip size=12406]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20051204025923.zip[/file]

 

[Hervé]

salut temjeh

comme d'hab, en piece jointe.


salut [file name=Classeur4_20051204110909.zip size=12701]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur4_20051204110909.zip[/file]

 

[Temjeh]

Merci beaucoup c'est exactement cela

Le but de ce trie est que ces données sont lu sur une autre feuil avec la fonction indirect. J'en ai 4 par feuil 8 1/2 x 11 et je doit en mettre 20 par quart de feuil et si j'en ai plus recto-verso de ce quart. Donc ce trie un peut complexe me facilite énormément la tâche. Mes autre feuillles n'attandaient que ce code!!!

Merci d'avoir travaillé sur ce dossier

Bon dimanche


Temjeh