Discussion :

[manue87]

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

[jerome.vaussenat]

Salut,

Voici une proposition de modification.

Le problème venait de la ligne qui détermine la fin de ton tableau dans la Ws.

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
21
Sub Creation()
Dim J As Long
Dim Ws As Worksheet

Application.ScreenUpdating = False
Set Ws = ActiveSheet
nbligne = Application.CountA(Ws.Range("A:A"))
For J = 1 To nbligne
    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

J'ai utilisé la fonction NBVAL pour déterminer le nb de passage dans la boucle.

[jerome.vaussenat]

Re,

Pour plus de précision sur ton "erreur"
ta ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MauvaiseMethode= Range("A" & Rows.Count).End(xlDown).Row

deux autres methodes que tu as mélangées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
FinTableau = Range("A1").End(xlDown).Row