Bonjour,
Avec deux petites macros, une pour la création d’onglet et l’autre pour l’impression
Option Explicit
Dim MySheet, Ws
Dim I%, Dl%, Sh As Shape
Sub CreationOnglet()
Application.ScreenUpdating = False
Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
For I = 5 To Dl 'boucle sur les lignes
Worksheets.Add After:=Sheets(Worksheets.Count) 'Ajoute un onglet
Set Ws = Sheets("Stocks Transactions")
Set MySheet = ActiveSheet
With MySheet
.Name = Ws.Cells(I, 1).Value 'attribue le nom de la cellue colonne A de la ligne concernée
End With
Ws.Activate
Ws.Range(Cells(1, 1), Cells(4, 35)).Copy MySheet.Cells(1, 1) 'Copie l'entête
Ws.Range(Cells(I, 1), Cells(I, 35)).Copy MySheet.Cells(5, 1) 'Copie la ligne
For Each Sh In MySheet.Shapes
Sh.Delete 'Supprime les boutons
Next Sh
Next I
End Sub
Sub Impression()
For I = 2 To Sheets.Count
'Sheets(I).PrintOut ' Pour imprimer
Sheets(I).PrintPreview ' Apercu avant impression
Next I
End Sub
forum.xlsm (40,6 Ko)