1 pièce(s) jointe(s)
Code VBA et interactions inter-feuilles de feuilles pas encore créées
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:
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