Impression de plusieurs tableaux variables

Bonjour,

Je souhaiterais imprimer via une macro, plusieurs tableaux. J'aimerais que l'impression ne prenne en compte que les lignes pleines du tableau. Je bloque lors de la saisie du "printarea". Voici mon code :

Sub impression_tableaux()

Dim N As Long

With ActiveSheet

N = .Range("B46").End(xlUp).Row 'dernière ligne tableau 1

Dim O As Long

With ActiveSheet

O = .Range("B92").End(xlUp).Row 'dernière ligne tableau 2

With ActiveSheet.PageSetup

.PrintArea = ("B2:L" & N , "B48:L" & O)

'Je n'arrive pas ci dessus à écrire le code pour imprimer mes tableaux sur mesure

Sheets("Feuil1").PrintPreview

End With

End With

End With

Endsub

Merci de votre aide précieuse,

Morgan

Bonjour,

Il est communément admis de placer les déclarations au début de la macro.

Il est fortement déconseillé d'emboiter les With...

Je ne pense pas qu'on puisse faire des PrintArea multiples.

Donc si tu comptais faire l'impression sur une seule feuille : t'es chocolat... Dans ce cas il aurait fallu masquer les lignes intermédiaires.

Sinon tu as toujours la possibilités d'imprimer les deux tableaux sur 2 feuilles distinctes :

Sub impression_tableaux()
Dim N As Long, O As Long

 With ActiveSheet
 N = .Range("B46").End(xlUp).Row 'dernière ligne tableau 1
 O = .Range("B92").End(xlUp).Row 'dernière ligne tableau 2

   .PageSetup.PrintArea = ("B2:L" & N)
   .PrintPreview
   .PageSetup.PrintArea = ("B48:L" & O)
   .PrintPreview
 End With
End Sub

A+

ok, je vais donc imprimer sur les 2 feuilles distinctes.

Merci !

a+