aide sur classement d'onglet

[angoul]

Bonsoir, j'ai besoin de vos conseil
pour faire un classement de mes onglet automatiquement

j'ai sur une "feuilles des cellules remplies sur 2 colonnes
sur la colonnes A, j'ai 1;2;3;4 (pour cette exemple)
sur la colonnes B, j'ai 5;6;7;8;9 (pour cette exemple)

jusque la pas de probleme cela me creer comme je veut , mais au lieu de me creer les feuille dans l'ordre 1;2;3;4;5 et ensuite 6;7;8;9;10

il me creer les feuilles dans l'ordre qui suis : 1;6;2;7;3;8;4;8;5;10
la question est : y a t'il une astuce pour que les feuilles creer suive l'ordre que j'ai inscrit dans ma feuille au lieu qu'il soit melanger.
voici mon code :
Sub CopyFeuille()
With Sheets("catégorie")
For i = 1 To .Range("A5000").End(xlUp).Row
Sheets("feuille_catégorieM").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1)
Sheets("feuille_catégorieF").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 2)
Next
End With
End Sub

merci de votre aide

 

[jeanpierre]

Re : aide sur classement d'onglet

Bonsoir angoul,

Normal, dans ta boucle tu dis créer feuille 1 (colonne A) et aussitot après créer Feuille 6 (colonne B)

Fais plutôt deux boucles une avec : for i =.... et ActiveSheet.Name = .Cells(i, 1)
et ensuite l'autre ActiveSheet.Name = .Cells(i, 2)

Bonne soirée.

Jean-Pierre

 

[ROGER2327]

Re : aide sur classement d'onglet

Bonsoir angoul, jeanpierre

Peut-être comme ceci ?

[COLOR="DarkSlateGray"][B]Sub CopyFeuille()
Dim i&, j&
   With Sheets("catégorie")
      For j = 0 To 1
         For i = 1 To .Range("A5000").Offset(0, j).End(xlUp).Row
            Sheets("feuille_catégorieM").Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Cells(i, 1).Offset(0, j)
         Next i
      Next j
   End With
End Sub[/B][/COLOR]

ROGER2327
#3335

 

[angoul]

Re : aide sur classement d'onglet

merci de votre aide,à tous les 2
Rogers ton code marche bien, mais dans le miens
j'avait 2 feuilles modele le feuilles competitionM et la feuilles competitionF

quelqu'un peut m'aider,car je comprend pas comment modifier le code, car je debut dessus et c'est complexe

merci d'avance

 

[ROGER2327]

Re : aide sur classement d'onglet

Re...

Une étourderie !
Correction :

[COLOR="DarkSlateGray"][B]Sub CopyFeuille()
Dim i&, j&
   With Sheets("catégorie")
      For j = 0 To 1
         For i = 1 To .Range("A5000").Offset(0, j).End(xlUp).Row
            Sheets([COLOR="Red"]Array("feuille_catégorieM", "feuille_catégorieF")(j)[/COLOR]).Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Cells(i, 1).Offset(0, j)
         Next i
      Next j
   End With
End Sub[/B][/COLOR]

ROGER2327
#3338