Bonjour cher forum et bonne année,
Je cherche à pouvoir dupliquer une feuille modèle autant de fois qu'il y a de noms dans une liste. J'ai trouvé la macro suivante sur la toile, qui fonctionne très bien.
Cependant, la liste de noms se trouve dans la feuille à dupliquer. Serait-il possible que cette liste se trouve sur une autre feuille ? Sachant que je n'y connais rien en macro...
Merci !!
Goo
Je cherche à pouvoir dupliquer une feuille modèle autant de fois qu'il y a de noms dans une liste. J'ai trouvé la macro suivante sur la toile, qui fonctionne très bien.
Code:
Option Explicit
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("A" & J)
Range("D2") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule D2
End If
Next J
Ws.Select
End Sub
'Si l'onglet existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function
Merci !!
Goo