Bonsoir le forum,
et merci à Pascal (le moderateur),
J'aurais besoin de petit coup de pouce pour mon impression en colonne.
J'ai chercher sur tout le net et j'ai trouvé des codes genre :
derLi = Columns(i).Find('*', , , , , xlPrevious).Row
mais ca ne me mène à rien (probablement parce que je n'arrive pas à les adapter à mon code...)
MON CODE:
Sub pourimpr()
Set ActuelWkbk = ThisWorkbook
With ActuelWkbk
Set WsBase = .Worksheets('Database')
End With
Sheets('Feuil2').Cells.ClearContents
ligne = 1
For n = 2 To WsBase.Range('A65536').End(xlUp).Row
For m = 1 To 9
Sheets('Feuil2').Cells(ligne, 1) = WsBase.Cells(n, m)
ligne = ligne + 1
Next m
Sheets('Feuil2').Cells(ligne, 1) = ''
ligne = ligne + 1
Next n
Sheets('Feuil2').PrintOut Copies:=1, Collate:=True
End Sub
Je me retrouve donc avec plusieurs feuilles avec une seule colonne. Quel gachis de papier !
Y a-il une solution ?
Merci de bien vouloir m'aider, si possible
Manon