Bonjour au forum,
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