Boucle avec condition "perdu"

Code:

---

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

For j = 1 To ligne If page = Cells(j, 1) Then   For a = j To ligne If Cells(a, 1) = page Or Cells(a, 1) = "" Then Range("A6500") = "a"   Else Rows(a - 1).Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown a = a - 2 i = a Exit For End If Next a End If Next j

---

Voici mon code...Voila le principal c'est de regrouper des lignes selon leur catégorie...Je m'explique.J'ai 2 page...Une est pour la catégorie auto, l'autre moto...sur chaque page j'ai un bouton qui permet de renvoyer toute les information sur une page 3...A chaque renvoie d'information je veux que cela ce classe...Donc nous avons une boucle avec une condition "lenomdelapage toi etre egale à la case de la colonne A.
Une fois qu'il la trouver nous allons dans une autre boucle, qui demande de chercher ensuite la prochaine ligne differente...Une fois trouver nous rajouter 2ligne puis inserons la ligne voulu...Apres ce programme la ligne doit ce placé en dernière position de sa catégorie...ceci ne marche pas cela doit venir de mais next ou Exit for qui son mal placé

J'ai peut etre trouver plus simple!!!!Est-il possible de faire un rangement automatique par ordre alphabetique en mettant une ligne vide entre chaque ligne compléter????

Voilà le code tout bien comme y fo... J'me suis fait tirer les oreilles par un modérateur (qui entre nous à raison !) et je l'en remercie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro2()   Dim I As Integer   I = 1 Do While Sheets("données").Cells(I, 1) <> ""   Rows(I).Insert Shift:=xlDown   I = I + 2 Loop     End Sub

---

non sa va pas il faut m'aidez sur ma première idée...Trop compliquez deux boucles...
Imaginons on appuie sur un bouton dans moto, des que dans la feuille 3 il va apercevoir moto il va commencer la deuxieme boucle, pour savoir ou il va trouver auto.Lorqu'il aura trouver auto, le programme peut conclure que c'est le début de la deuxieme plage (ou chapitre ou categorie comme on veut mdr).
Donc c'est a partir de ce point qui va ajouter sa ligne de donnez deux lignes en arriere, en effet, chaque ligne sont espacer par une ligne vide. Il va pas simplement ajouter sa ligne deux ligne en arriere il va devoir en créer puisque deux ligne au dessus il y a les ancienne donnée...C'est compliquez non...
BILAN : Donnée classez en deux catégorie avec une ligne d'espacement entre chaque ligne...

j'ai relu trois fois et je comprends pas ce que tu veux faire. Explique moi quel est le résultats que tu veux obtenir et joins ton fichier avec ça va aider.

:mur: :merci: