création feuiille avec noms

[klingler thierry]

Je voudrais créer à l'aide d'un macro un petit programme qui me permet au travers d'un liste de noms de créer un nouvel onglet et de l'apeller par le nom de la personne que je selection dans une liste.
Les soucis que je rencontre c'est une erreur dans l'éxécution de la macro lors que je fait remonner et copier le nom. Le deuxième est que a la création de la feuille suivante les données copier ne se mettent pas dans la nouvelle feuille créer.
merci de vos renseignements.

 

[_Thierry]

Bonjour Thierry, le Forum

C'est un peu abstrait ton explication !

Pour pouvoir te répondre, imaginons que tu aies une liste de noms dans la Feuille 'Feuil1' en colonne A1 à A10... Et que tu veuilles générer dix nouvelles Feuilles avec ces noms :

Option Explicit

Sub SheetsGenerator()
Dim Cell As Range
Dim NewWs As Worksheet

For Each Cell In Sheets('Feuil1').Range('A1:A10')
Set NewWs = Worksheets.Add
    With NewWs
    .Move After:=Worksheets(Worksheets.Count)
    .Name = Cell.Text
    End With
Next

End Sub

Voilà pour une première approche, il faudra aussi prévoir des gestions d'Erreurs (Feuille Déjà Existante, Nom de Feuille avec Caractère Interdit, Cellule Vide etc)

Bon Appétit
[ol]@+Thierry[/ol]

 

[mickey]

Bonjour,

Sur la solution apporte je voudrai pas une nouvelle feuille mais en copier une existante

est ce possible?

merci mickael