Bonjour à tous,

voici mon code

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