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 ....
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 ....