Création onglet VBA EXCEL Tri alphabétique

Version imprimable

Bonjour à tous,

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Creation_CS()
 
'''''''''''''''''''''''''
'''''signer la macro'''''
'''''''''''''''''''''''''
 
 Dim Comptes_section As Range 'Définition de la plage de cellules
 Dim Ws As Worksheet
 Dim x As Integer
 
 'Ensuite, je lui affecte l'ensemble des cellules de la zone A2:A1048576 (Rows.Count)
 'qui contiennent des données (SpecialCells(xlCellTypeConstants))
 
 Set Comptes_section = Sheets("INDEX").Range("B3:B" & Rows.Count).SpecialCells(xlCellTypeConstants)
 
 'La boucle suivante balaie toutes les cellules de la plage définie
 
 For Each Cel In Comptes_section
    Sheets("Maquette_D").Select
    Cells.Copy
    Sheets.Add after:=Sheets("Maquette_D")
 
    ActiveSheet.Paste
 
 'Enfin, je récupère la ligne de la cellule en cours de lecture :
 
    ActiveSheet.Cells(1, 2) = Sheets("INDEX").Cells(Cel.Row, 2)
    ActiveSheet.Name = Cells(1, 2) 'nom des feuilles
 
' Application des mises en forme à toutes les feuilles attention il faut que les feuilles soient toutes visibles
 
        Application.ScreenUpdating = False
               For i = 1 To Sheets.Count
                    Sheets(i).Visible = xlSheetVisible
                    Sheets(i).Activate
                    ActiveWindow.Zoom = 70 'zoom 70% sur toutes les feuilles
                Next i
            Application.ScreenUpdating = True
 
 'Créer une ligne de code pour appliquer la mise en forme ci dessus à toutes les feuilles sauf la première
 'créer une macro qui en fonction de DR; AG; SE compile les données (calcul)
 
 'créer une ligne de code pour mettre la mise en forme du ficli en affichage 70% et sans cadriage
 Next
 End Sub

j'aimerai que lorsque je crée mes onglets via une base (feuille index), que les onglets se crée à la suite de la feuille "Maquette_D" mais par ordre alphabétique.

je débute en VBA mais j'ai beau tourner le code je ne trouve pas la solution ...

26/12/2017, 13h15
unparia

Bonjour
Tu dis bien "à la suite d'un onglet déjà existant"
Tu ne précises toutefois pas si entre cet onglet et un autre éventuellement lui aussi existant.
Je vais dans ces conditions de répondre de sorte à "universaliser" :
1) création d'un array des onglets à ajouter
2) tri des éléments de cet array (tu as sur ce forum, qui dispose d'un moteur de recherche) une foultitude de discussions et/ou codes déposés qui traient de ce tri
3) ajout du premier élément à la suite de ton onglet "Maquette_D"
4) ajout des autres éléments de cet array à la suite du dernier ainsi ajouté.
Les opérations 3 et 4 sont d'une très grande simplicité
26/12/2017, 18h28
laseck

Bonjour,

je m'excuse pour mon manque de clarté.
Le code que j'ai posté me permet de dupliquer les onglets selon une table qui définit le nom des onglets créés.
Le problème est le suivant:
les onglets se créent mais pas dans un ordre alphabétique (ils se créent dans un ordre décroissant ...)
Mon but est le suivant:
je souhaite que les onglets se crée a la suite d'une feuille D (qui me permettra de compiler l'ensemble des onglets créés).
mon fichier comporte d'autres feuilles.
Pour que ce soit plus clair je posterai un modèle de mon fichier.
Merci de votre réponse
26/12/2017, 19h44
unparia

1) Nous avions bien compris
2)

Citation:

Pour que ce soit plus clair je posterai un modèle de mon fichier.

Je n'ouvre et n'ouvrirai jamais un classeur tiers.
3) qu'as-tu fait (au moins tenté de faire) sur les bases/étapes que je t'ai indiquées ? :cfou:

1 pièce(s) jointe(s)

Bonjour,

Qq exemples en PJ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Tri_onglet()
  Application.ScreenUpdating = False
  Dim a(256)
  n = Sheets.Count
  For i = 1 To n
     a(i) = Sheets(i).Name
  Next i
  '----  tri
  For i = 1 To n
     For j = i To n
        If a(j) < a(i) Then
          temp = a(j)
          a(j) = a(i)
          a(i) = temp
        End If
     Next j
  Next i
  '---
  For i = 1 To n
     Sheets(a(i)).Move before:=Sheets(i)
  Next i
  Sheets("accueil").Move before:=Sheets(1)
  Sheets(1).Select
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub tri_ongletDirect()
  Application.ScreenUpdating = False
  For i = 1 To Sheets.Count
     For j = i To Sheets.Count
        If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
          Sheets(i).Move before:=Sheets(j)
          Sheets(j).Move before:=Sheets(i)
        End If
     Next j
  Next i
  Sheets("accueil").Move before:=Sheets(1)
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub trionglet2()
  Sheets.Add
  ActiveSheet.Name = "Tempo_jb"
  For i = 1 To Sheets.Count
     Cells(i, 1) = "'" & Sheets(i).Name
  Next i
  Range("A1:A256").Sort Key1:=Range("A1")
  For i = 1 To Sheets.Count
     nonglet = Cells(i, 1)
     Sheets(nonglet).Move before:=Sheets(i)
     Sheets("Tempo_jb").Activate
  Next i
  Application.DisplayAlerts = False
  Sheets("Tempo_jb").Delete
  Sheets("accueil").Move before:=Sheets(1)
  Sheets(1).Activate
End Sub

Boisgontier