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
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
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
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
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
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 -
Bonjour Danie C
Merci pour ton aide c'est impect !
bonne journée
@+
On 28 avr, 16:57, Daniel.C <dcolardelle...@gmail.com> 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 -
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 -