gothc
XLDnaute Occasionnel
Bonjour le forum j'ai besoin de votre aide pour modifier cette Macro
' 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 = 3 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("aw6") = 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
avec cette macro j'ajoute des feuilles vierges( 180 à 200 onglets) en fonction d'une liste contenu dans onglet recap voir mon fichier j'ai un tableau récapitulatif dans feuille vierge je cherche à avoir le total dans le tableau voir exemple Merci de votre aide
' 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 = 3 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("aw6") = 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
avec cette macro j'ajoute des feuilles vierges( 180 à 200 onglets) en fonction d'une liste contenu dans onglet recap voir mon fichier j'ai un tableau récapitulatif dans feuille vierge je cherche à avoir le total dans le tableau voir exemple Merci de votre aide