Discussion :

[guismoman33]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[guismoman33]

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????

[ilcocodrillo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guismoman33]

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...

[ilcocodrillo]

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.