XL 2010 VBA Copier une feuille modèle RESOLU

[DEBOUT]

Bonjour à tous,

Je souhaite créer un fichier pour gérer les bons de commandes et le stock pour la boucherie de mon fils.
J'ai créé une feuille "modèle" et j'ai trouvé sur ce forum comment créer une nouvelle feuille à partir d'une liste (mes numéros de bon de commande) en cliquant sur une cellule de cette liste.
Par contre, je n'arrive pas à ajouter les bonnes commandes pour que sur cette nouvelle feuille viennent se copier le contenu de mon "modèle"
le code actuel est le suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(before:=Worksheets(Worksheets.Count)).Name = Target
End If
End Sub

Merci de votre aide ....

 

[vgendron]

Hello
ton code ajoute une feuille vide..
ce que tu souhaites, c'est COPIER le modèle

avec ce code donc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    If Selection = "" Then Exit Sub
'vérification de l'existence ou non de la feuille
    For Each Ws In Worksheets
        If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
    Next Ws
'la feuille n'existe donc pas-->on copie le modèle
    Sheets("modèle").Copy Before:=Worksheets(Worksheets.Count)
    'on lui donne le nom de la cellule sélectionnée
    Sheets("modèle (2)").Name = Target
End If
End Sub

 

[DEBOUT]

Merci beaucoup vgendron, c'exactement ça !!!
J'aimerais pouvoir maîtriser VBA, j'ai un livre ...mais imbuvable, peut être connaissez-vous un ouvrage qui pourrait m'aider ...

Merci encore et bonne journée

 

[vgendron]

Perso,
mon apprentissage a été à base de "Enregistreur de macro" et j'ai fait fumer la touche F1 et google est mon ami ;-)
ici sur ce site, il y a beaucoup de tuto, et surtout il y a des pointures qui me font toujours halluciner. ;-)
n'hésite pas à faire appel à ce forum, il se trouve toujours quelqu'un qui pense à une solution bien plus simple que nous ;-)

 

[DEBOUT]

A bientôt sur le forum alors !!!

 

[Dranreb]

Bonjour
Moi j'utiliserais toujours la même feuille de fiche que je reconstituerais quand on sélectionne dans la colonne A
À quoi bon garder le détail des mêmes informations en plusieurs endroits ?

 

[Dranreb]

Voyez un essai de mise à jour par fiche unique.

 

[DEBOUT]

Merci beaucoup

Je propose les deux méthodes à mon fils et il tranchera

A bientôt sur le forum