Aliceploum
XLDnaute Nouveau
Bonjour à vous,
Je suis plus que débutante en macro, mais je bidouille des codes copiés collés ici où là….
J'ai fichier avec une feuille "Modèle" et une "Liste" de clients, et doit créer un onglet pour chaque client.
J'ai déjà une macro qui copie ma feuille "Modèle", en fonction de ma "Liste" et renomme la feuilles créée comme le nom du client...
Je voudrais pouvoir tester si une feuille existe déjà, si oui passer à la ligne de ma "Liste" suivante…., sinon la créer en copiant mon "Modèle" et en la renommant…
etc... etc...J'espère que je suis claire….
Voici la macro ...
Sub ajout_feuilles()
Dim nom As String, c As Range
For Each c In Range("Liste")
Worksheets("Modèle").Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = c.Value
If nom <> "" Then
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
End If
End With
Set c = c.Offset(1, 0)
Next c
End Sub
Merci pour votre aide et bonne journée
PS: Pour moi c'est du chinois tout ce qui est écrit… j'espère bientôt faire une formation, je trouve ça trop cool
Je suis plus que débutante en macro, mais je bidouille des codes copiés collés ici où là….
J'ai fichier avec une feuille "Modèle" et une "Liste" de clients, et doit créer un onglet pour chaque client.
J'ai déjà une macro qui copie ma feuille "Modèle", en fonction de ma "Liste" et renomme la feuilles créée comme le nom du client...
Je voudrais pouvoir tester si une feuille existe déjà, si oui passer à la ligne de ma "Liste" suivante…., sinon la créer en copiant mon "Modèle" et en la renommant…
etc... etc...J'espère que je suis claire….
Voici la macro ...
Sub ajout_feuilles()
Dim nom As String, c As Range
For Each c In Range("Liste")
Worksheets("Modèle").Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = c.Value
If nom <> "" Then
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
End If
End With
Set c = c.Offset(1, 0)
Next c
End Sub
Merci pour votre aide et bonne journée
PS: Pour moi c'est du chinois tout ce qui est écrit… j'espère bientôt faire une formation, je trouve ça trop cool