créer de nouveaux onglets à partir d'un modèle, automatiquement

[pascal21]

bonjour à tous
je cherche le moyen de créer un nouvel onglet pour chaque nouvelle ligne crée dans la feuille BD
j'ai trouvé sur le site de boisgontier un exemple concret de ce que je veux réalisé
mais je n'arrive pas à le modifier pour adapter
en gros voilà ce que j' souhaite réalisé
feuil bd colonne A les N° des machines (toujours 3 chiffres)
chaque que je mets un nouveau n° j'aimerais que ça me crée un nouvel onglet qui porterait le nom de la nouvelle entrée en colonne A
l'exemple trouvé fonctionne bien jusque là mais le code commence par supprimer les onglets pour les recréer ensuite et là ça m'embete
je vous mets le code de boisgontier

Sub CreeOnglets()
   Application.ScreenUpdating = False
   supOnglets
   Set bd = Sheets("bd")
   bd.[A1].CurrentRegion.Sort Key1:=bd.Range("A2"), Order1:=xlAscending, Header:=xlGuess
   ligBD = 2
   Do While ligBD <= bd.[A65000].End(xlUp).Row
       nom = bd.Cells(ligBD, 1)       ' Premier nom
       Sheets("modèle").Copy After:=Sheets(Sheets.Count)
       ActiveSheet.Name = "F_" & nom
       Set plan = Sheets("F_" & nom)
       plan.Range("D5").Value = nom
       ligPlan = 9
       Do While bd.Cells(ligBD, 1) = nom   'parcours  nom traité
         TypeConges = bd.Cells(ligBD, 4)
         jours = bd.Cells(ligBD, 5)
         plan.Cells(ligPlan, 3) = bd.Cells(ligBD, 2)
         plan.Cells(ligPlan, 4) = bd.Cells(ligBD, 3)
         p = Application.Match(TypeConges, [couleurs], 0)
         If Not IsError(p) Then plan.Cells(ligPlan, p + 4) = jours
         ligBD = ligBD + 1
         ligPlan = ligPlan + 1
       Loop
    Loop
End Sub

Sub supOnglets()
  Application.DisplayAlerts = False
  For s = Sheets.Count To 1 Step -1
     If Left(Sheets(s).Name, 2) = "F_" Then Sheets(s).Delete
  Next s
End Sub

vous pouvez trouver l'exemple ici
merci


edit
resolu merci

 

[Guest]

Re : créer de nouveaux onglets à partir d'un modèle, automatiquement

Bonjour,

Voir dans le fichier joint une autre manière de faire.

A+