Bonjour à tous,

Je sollicite votre aide pour avoir des conseils pour réaliser un fichier.
Je cherche à créer des onglets dans mon classeur qui en fonction de leurs noms doivent venir compiler les onglets qui suivent.

Pour être plus clair, je souhaite que un onglet AGXXX viennent me compiler les onglets qui suivent jusqu'à la prochaine feuille AGXXX ...

J'ai réaliser le code suivant pour la création des onglets:


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
46
47
Sub Creation_Onglets_P3M()
 
'''''''''''''''''''''''''
'''''Macro de Cédric '''''
'''''''''''''''''''''''''
 
 Dim ARBO As Range 'Définition de la plage de cellules
 
 Set ARBO = Sheets("INDEX").Range("C8:C" & Rows.Count).SpecialCells(xlCellTypeConstants)
 
 'La boucle suivante balaie toutes les cellules de la plage définie
 
 For Each Cel In ARBO
    Sheets("Maquette P3M").Select
    Cells.Copy
    Sheets.Add after:=Sheets(Worksheets.Count)
    ActiveSheet.Paste
 
 'Enfin, je récupère la ligne de la cellule en cours de lecture :
 
 
    ActiveSheet.Cells(4, 2) = Sheets("INDEX").Cells(Cel.Row, 3) 'Cells(4, 1) = A4
    ActiveSheet.Cells(3, 2) = Sheets("INDEX").Cells(Cel.Row, 7) 'nom de l'UO en B3 DE LA FEUILLE DUPLIQUER
 
 
    ActiveSheet.Name = Cells(4, 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
                    ActiveWindow.DisplayGridlines = False 'cadrillage 0
                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
Pouvez vous m'aider svp??

Merci