Bonjour,

Je cherche à créer x onglets :
nom de l'onglet : selon la liste fourni en onglet 1 ("participants")
contenu de l'onglet : la copie de l'onglet 2 ("HADS" = contenu du test)

Ça fait plutôt bien le job, sauf une erreur à la fin : ça ne s’arrête pas en bout de liste mais ça me rajoute un dernier onglet HADS(2)

Pouvez-vous me dire ce qui ne va pas ?


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
Sub Creation()
Dim J As Long
Dim Ws As Worksheet
 
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 1 To Ws.Range("A" & Rows.Count).End(xlDown).Row
    If FeuilleExiste(Ws.Range("A" & J).Value) = False Then
      Sheets("HADS").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.name = Ws.Range("A" & J)
    End If
  Next J
  Ws.Select
End Sub
 
Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).name <> ""
  On Error GoTo 0
End Function

merci d'avance pour votre aide