Re : Gestion onglet (création/suppression) à partir d'une table
ok merci du coup de main. mais cela ne résout pas mon problème
Je ne comprends pas avec le code ci-dessous, la boucle s'arrete au bout des 2 premières lignes de la table d'entrée donc 2 onglets ajoutés et pas ceux d'après.
For j = ligbd To listepersonnel.Cells(Rows.Count, "A").End(xlUp).Row
If Cells(j, "D") = "" Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
NomAgent = listepersonnel.Cells(j, "A") ' Premier nom
ActiveSheet.Name = "F_" & NomAgent
Set fiche = Sheets("F_" & NomAgent)
fiche.Range("v5").Value = NomAgent
fiche.Range("d3").Value = listepersonnel.Cells(j, "B")
fiche.Range("v7").Value = listepersonnel.Cells(j, "C")
listepersonnel.Cells(j, "d") = "En cours"
End If
Next j