bonjour
petit aide pour un bug sur lequel je bute
je cherche simplement à dupliquer une feuille nommé feuille vierge en fonction d'une liste situé en colonne B de la feuille recap
voici le code que j'ai modifier
' ajouter feuille vierge en fonction d'une liste contenu dans onglet recap
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 2 To Ws.Range("B" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("B" & J).Value) Then
Sheets("feuille vierge").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("B" & J)
Range("D1") = 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 de votre aide