Créer et nommer feuille automatiquement

[Jiheme]

Bonjour le forum,

Enfin de retour, après des vacances bien méritées mais sans connection.

Déjà un problème, je n'arrive pas à automatiser la création et le nom d'une feuille. Explication + détaillées dans le fichier.

Je ne serais de retour qu'en fin d'après midi

Merci d'avance et bonne journée.

 

[PascalXLD]

Re : Créer et nommer feuille automatiquement

Bonjour

essaies ainsi

Sub AjoutFeuille()
'
' AjoutFeuille Macro
' Macro enregistrée le 26/08/2008 par Jihème
'
For x = 2 To Sheets("Listes").Range("A65536").End(xlUp).Row
    For Each ws In Worksheets
        If ws.Name = Sheets("Listes").Range("A" & x) Then GoTo fin
    Next
    Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets("Listes").Range("A" & x)
fin: Next
End Sub

 

[Jiheme]

Re : Créer et nommer feuille automatiquement

Bonjour Pascal, le forum

Et merci c'est Ok,

J'ai juste mis ton code dans un :

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

J'ajoute cette remarque pour ceux qui dans le futur auront le même problème.

Encore merci et bonne journée

A+

 

[Bernard78]

Re : Créer et nommer feuille automatiquement

Bonjour,
je crois que cela va également répondre à mon besoin, à une petite différence près : je ne veux que toute la liste des noms donne lieu à la création d'une feuille, mais uniquement la cellule sélectionnée dans "Liste".
En bref, quand je sélectionne une cellule avec un nom, j' exécute la macro et hop une feuille se crée et se nomme de ce même nom.
Le must serait d'avoir un message m'avertissant quand j'ai déjà créé une fiche pour ce nom.
Dans le fichier ci-joint, ma feuille "Plan" correspond à "Liste".

Merci d'avance de votre aide.