Macros imprimer

Le
syleg35
Bonjour à tous;
J'aurais souhaité avoir un peut d'aide pour finir ma macro pour
imprimer, j'ai deux macro pour imprimer deux zones différente dans la
même feuille, je voudrais mettre c'est deux macros en une, avec un
MsgBox pour imprimer la deuxième zone si je le souhaite, car j'imprime
en régle général les deux zones, mais pas à chaque fois
Merci à vous et bonne journée


Sub ImprimeMerTab_1()

Range("B87:AH110").Select
ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End Sub

Sub ImprimeMerTab_2()

Range("B134:AH160").Select
ActiveSheet.PageSetup.PrintArea = "$B$134:$AH$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19212201
Bonjour.
Sub Imprimer()
Dim Rep
Rep = MsgBox("Imprimer Tab1 ?", vbOKCancel)
If Rep = vbOK Then
Range("B87:AH110").Select
ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End If
Rep = MsgBox("Imprimer Tab2 ?", vbOKCancel)
If Rep = vbOK Then
Range("B87:AH110").Select
ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End If
End Sub
Cordialement.
Daniel

Bonjour à tous;
J'aurais souhaité avoir un peut d'aide pour finir ma macro pour
imprimer, j'ai deux macro pour imprimer deux zones différente dans la
même feuille, je voudrais mettre c'est deux macros en une, avec un
MsgBox pour imprimer la deuxième zone si je le souhaite, car j'imprime
en régle général les deux zones, mais pas à chaque fois
Merci à vous et bonne journée


Sub ImprimeMerTab_1()

Range("B87:AH110").Select
ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End Sub

Sub ImprimeMerTab_2()

Range("B134:AH160").Select
ActiveSheet.PageSetup.PrintArea = "$B$134:$AH$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
Range("B7").Select
End Sub


syleg35
Le #19212461
Bonjour Danie C
Merci pour ton aide c'est impect !
bonne journée
@+

On 28 avr, 16:57, Daniel.C
Bonjour.
Sub Imprimer()
Dim Rep
Rep = MsgBox("Imprimer Tab1 ?", vbOKCancel)
If Rep = vbOK Then
    Range("B87:AH110").Select
    ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
    Range("B7").Select
End If
Rep = MsgBox("Imprimer Tab2 ?", vbOKCancel)
If Rep = vbOK Then
    Range("B87:AH110").Select
    ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
    Range("B7").Select
End If
End Sub
Cordialement.
Daniel



> Bonjour à tous;
> J'aurais souhaité avoir un peut d'aide pour finir ma macro pour
> imprimer, j'ai deux macro pour imprimer deux zones différente dans la
> même feuille, je voudrais mettre c'est deux macros en une, avec un
> MsgBox pour imprimer la deuxième zone si je le souhaite, car j'imprim e
> en régle général les deux zones, mais pas à chaque fois
> Merci à vous et bonne journée

> Sub ImprimeMerTab_1()

>     Range("B87:AH110").Select
>     ActiveSheet.PageSetup.PrintArea = "$B$87:$AH$110"
>     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tr ue
>     ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
>     Range("B7").Select
> End Sub

> Sub ImprimeMerTab_2()

>     Range("B134:AH160").Select
>     ActiveSheet.PageSetup.PrintArea = "$B$134:$AH$160"
>     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tr ue
>     ActiveSheet.PageSetup.PrintArea = "$B$1:$AH$60"
>     Range("B7").Select
> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme