Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macros imprimer

Macros imprimer

2 réponses
Avatar
syleg35
Bonjour =E0 tous;
J'aurais souhait=E9 avoir un peut d'aide pour finir ma macro pour
imprimer, j'ai deux macro pour imprimer deux zones diff=E9rente dans la
m=EAme feuille, je voudrais mettre c'est deux macros en une, avec un
MsgBox pour imprimer la deuxi=E8me zone si je le souhaite, car j'imprime
en r=E9gle g=E9n=E9ral les deux zones, mais pas =E0 chaque fois
Merci =E0 vous et bonne journ=E9e


Sub ImprimeMerTab_1()

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

Sub ImprimeMerTab_2()

Range("B134:AH160").Select
ActiveSheet.PageSetup.PrintArea =3D "$B$134:$AH$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=3D1, Collate:=3DTrue
ActiveSheet.PageSetup.PrintArea =3D "$B$1:$AH$60"
Range("B7").Select
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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'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


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

On 28 avr, 16:57, Daniel.C wrote:
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 -