Imprimer 2 enregistrements sur une feuille A4

Question

Pour ma trésorerie associative, je suis obligé d'imprimer des "BONS CCP" pour chaque opération. Jusqu'à présent la macro que j'utilise imprime un bon à chaque fois (1/2 feuille A4) ce qui constitue un gaspillage de papier. Je contourne le problème en alimentant mon imprimante avec des 1/2 feuilles A4, mais certaines imprimantes posent soucis. J'ai modifié ma feuille à imprimer en ajoutant un 2ème bon (onglet BON_CCP) en modifiant ma macro de cette façon, mais la commande (en souligné) Next nbbon n'est pas appropriée car elle me ramène toujours le bon suivant et non le bon+2. Sub BONCCP_IMP() ' ' BONCCP_IMP Macro Dim nbbon, nblgn, rep2 As Integer Sheets("BON_CCP").Activate Range("A1").Select Application.ScreenUpdating = True rep2 = MsgBox("Attention, vous allez éditer tous les bons.", 4) nblgn = Application.WorksheetFunction.CountA(Sheets("CCP").Columns(2)) - 5 If rep2 = 6 Then For nbbon = 1 To nblgn Sheets("Bon_CCP").Select Range("K2").Value = nbbon 'EDITION 1er enregistrement Range("K21").Value = nbbon + 1 'EDITION 2ème enregistrement sur la même PAGE ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next nbbon ' EDITION des 2 enregistrements suivants Else Sheets("CCP").Activate End If End Sub Merci de me conseiller. Ci-joint une partie de mon fichier...

dubois · Answer

Ajoute "Step 2" sur cette ligne For nbbon = 1 To nblgn Step 2 çà doit suffire Claude...

Nad-Dan · Answer

Beau fichier là.. Dubois est passé en même temps que je proposais la même solution. 8) Donc vois ce qu'il a donné. PAr contre dans ton moduele "Accueil", supprime la macro AUTOOPEN (antiquité d'excel...) et mets le code ci-dessous dans THISWORKBOOK Private Sub Workbook_Open() With Sheets("CCP") .Activate .Range("B9").End(xlDown)(2).Activate End With ActiveWindow.WindowState = xlMaximized End Sub Il y a encore d'autres choses que l'on peut améliorer dans ton fichier, je vois. Si intérêt je regarderai cela plus tard. Amicalement Dan...