Bonsoir,
J'ai interprété ta demande ainsi : dans une feuille test, une plage de A1 à A6 dans laquelle se trouvaient des noms et par la macro suivante, créer 6 onglets correspondants à cette liste. Tel a été mon cours du soir =- la création d'une nouvelle feuille dans worksheets et comprendre la gestion des erreurs sans parler des Dim à ne pas oublier.
Mais peut-être n'est-ce pas cela que tu voulais ?! Bon, mais le cours je l'aurai eu quand même avec mon prof du soir et voici la macro.
à placer dans un module
Sub NommerFeuille()
Dim F As Worksheet
Dim Cell As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Cell In Range("A1:A6")
Set F = Worksheets.Add
On Error Resume Next
F.Name = Cell.Text
If Err <> 0 Then F.Delete
On Error GoTo 0
Next Cell
End Sub
Merci Zon (ouf bientôt Noël, Zon, on va tomber en ouacances de VBA -tu vas pouvoir te reposer- hi hi hi)
Celeda
