Macro pour imprimer certaines lignes

[garagai]

Bonjour,
j'ai un tableau excel que je voudrais imprimer sur plusieurs feuilles :
sur chaque feuille i , je veux imprimer les lignes 1 et 36 et la ligne i .
J'ai tenté cette macro mais elle bugue.

Sub tirage()
'
Dim i As Integer
For i = 2 To 33
Range("A1:O1,A36:O36").Select
Range("A" & i).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$1,$A$" & i & ": $O$ " & i
Selection.PrintOut Copies:=1, Collate:=True
Range("A" & i).Desactivate
Next i

End Sub

Pourriez-vous m'aider?

Merci.

 

[Bebere]

Re : Macro pour imprimer certaines lignes

bonjour Garagai
essaye ce code

Sub tirage()
'
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
.Range("A1:O1").Copy Destination:=.Range("A100")
.Range("A36:O36").Copy Destination:=.Range("A102")
For i = 2 To 35
.Range("A" & i & ":O" & i).Copy Destination:=.Range("A101")
.PageSetup.PrintArea = "A100:A102"
.PrintOut Copies:=1, Collate:=True
Next i
End With
Application.ScreenUpdating = True

' si besoin, un peu de code
'Centrer le contenu de la feuille lors de l'impression
'
' With Feuil1
' .PageSetup.CenterHorizontally = True
' .PageSetup.CenterVertically = True
' .PrintOut
' End With
'
' *
'
' Imprimer la première page en mode Paysage et la deuxième page en mode Portrait
'
' With Feuil1
' .PageSetup.Orientation = xlLandscape
' .PrintOut From:=1, To:=1
' .PageSetup.Orientation = xlPortrait
' .PrintOut From:=2, To:=2
' End With

End Sub

à bientôt

 

[garagai]

Re : Macro pour imprimer certaines lignes

Merci, c'est super.

c'est pratiquement ce que je voulais. J'ai juste une question :
d'après la macro je devrais avoir les cellules de A1 à O1 qui s'impriment. Or je n'ai que la A1, càd que la première colonne.
Pourtant la macro m'a l'air cohérente. Est-ce que cela vient de la version d'Excel?

Merci aussi pour les compléments.

 

[Bebere]

Re : Macro pour imprimer certaines lignes

Garagai
la faute est dans cette ligne
.PageSetup.PrintArea = "A100:A102"
devient
.PageSetup.PrintArea = "A100:O102"
à bientôt

 

[garagai]

Re : Macro pour imprimer certaines lignes

Génial!

Mais je constate un nouveau problème :
dans ma colonne O j'ai une formule qui dépend de la ligne i et la ligne 36.
Or à l'impression la valeur ne s'affiche pas, j'ai un #Div/0! alors que dans le tableau c'est juste.
Que dois-je modifier?

 

[garagai]

Re : Macro pour imprimer certaines lignes

C'est bon, j'ai trouvé la modif à faire.
Merci beaucoup Bebere pour votre aide.