Bonjour,
En fait, j'ai un nouveau problème c'est pour cela que je n'ai pas clôturé.
Ma macro imprime une plage sur Excel/PC d'une ou deux pages cela dépend de la valeur de J.
Range ("A" & 1, "W" & J).printout
Sur PC tout ce passe bien mais sur Mac cela imprime 148 pages.
J'essaie d'adapter le code mais je n'arrive pas à coder la plage en question. J'y ai passé l'AM.
J'ai perdu le peu d'expérience que j'avais depuis 15ans. J'ai trouvé des exemples le net.
Comment caser la plage ("A" & 1, "W" & J) dans ces deux macros ?
Merci d'avance pour vos propositions.
Option Explicit
Sub IMPR()
Dim ligne As Long
With Worksheets("maFeuille")
ligne = .Range("B" & Rows.Count).End(xlUp).Row ' déterminer fin de ligne
.Range("B2:H" & ligne).PrintOut
End With
End Sub
et celle-ci
Sub ImprimeSansVide()
Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
Set Plage = .Range("A3:A301").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
.PrintPreview 'pour voir sans imprimer
'.PrintOut ' pour imprimer directement
.Rows.Hidden = False
End With
End Sub