Discussion :

[iSirUsly]

Bonjour à tous,

Contexte
Mon code existant me permet de générer des sous fiches (feuilles sur XL) à partir d'un modèle en feuille 2 ('Modèle Fiche').
Ces sous fiches prennent le nom un à un des BT en colonne G de la feuille 'Avancement'.
De plus, ces feuilles générées se remplissent en fonction des informations de la colonne M, 3 tronçons en colonne M crée une liste A, B, C en colonne A de la sous fiche correspondant à ce BT.

Voilà pour le contexte et voici le code VBA derrière ce projet (shout-out to Arturo83) :

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
 
Sub Creation_Onglets_Selon_Modele()
    Dim c As Range
    Dim Nb_Tronçon As Long
    Application.ScreenUpdating = False
    'On crée les onglets qui sont listés à partir de la cellule
    'A2 de l'onglet nommé Liste
    Set c = Worksheets("Avancement").Range("G4") 'cellule de départ
    Do Until IsEmpty(c)     'boucle tant que c est vide
        Nb_Tronçon = Worksheets("Avancement").Cells(c.Row, "M")
        'on copie le modèle en dernier
        Worksheets("Modèle Fiche").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
        With Worksheets(ThisWorkbook.Sheets.Count) 'avec l'onglet créé
            .Name = c.Value     'on renomme
            'on remplit notre modèle comme on veut...
            .Range("H1") = c.Value
            For i = 1 To Nb_Tronçon
                .Cells(i + 7, "A") = Chr(i + 64)
            Next i
        End With
        Set c = c.Offset(1, 0)      'prochaine ligne
    Loop
    Set c = Nothing
    Application.ScreenUpdating = True
End Sub

Problématique :
J'aimerais intégrer dans ce code des lignes me permettant d'accomplir la tâche suivante :
Trouver un moyen de faire référence à ces futures feuilles (le nom de la feuille n'a pas l'air de suffire) pour :
1) Faire la somme de la colonne M (M8:M22) de chaque sous fiches (BT-00X)
2) Par un relation d'égalité ou autre pour que la cellule de la feuille d'Avancement soit constamment update :
3) Remplir la colonne L de la feuille 'Avancement' avec la somme du BT correspondant.

Cette requête doit être intégré au code car j'ai essayé avec des relations simples et même en connaissant le nom de la sous-fiches en avance, n'étant pas encore créée, XL ne fait pas référence à cette feuille après sa création, problème d'index maybe.

Merci pour votre aide

Cordialement