re imp

[nat]

cette macro m'imprime qu'une zone (la derniere) je comprend pas pourquoi

je cherche aussi a faire une mise en page en vba merci de votre aide
pour la mise en page quatre cellule sur une page

Sub Imp
With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
elseIf .Range("C1").Value = .Range("J4") Then
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Papy Novice]

Bonsoir Nat,

Colle
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
après
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
Bonne semaine à toi
Jean

 

[nat]

oui mai le probléme s quil imprime sur deux feuil avec cette macro
je cherche a faire une mise en page en vb
merci a vous
Sub Imp
With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
elseIf .Range("C1").Value = .Range("J4") Then
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Papy Novice]

Bonjour Nat,
Définie d'abord la sélection des cellules et ta zone d'impression :
Ex : Range("B5:C6").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$C$6"
Puis règle le zoom :
ActiveWindow.Zoom = 75
Cordialement à toi en te souhaitant une très bonne journée.
Jean
*****Tout ce qui est petit est appelé à grandir*****

 

[nat]

J'ai toujour le meme probléme il m'imprime sur deux feuil diff
je cherche a avoir les deux zone sur une meme feuil
je p le faire en modifi sur la zonne
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
mais le probléme s la condition pour chaque zonne
If .Range("A1").Value = .Range("A2") Then (imprimé si A1=A2)
je tourne en rond
en vb je s pas si je p lui impose une mise en page

 

[nat]

je renv la macro

With Sheets("feuil3")
If .Range("A1").Value = .Range("A2") Then
Range("F3:H15").Select
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
ActiveWindow.Zoom = 75

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End With
With Sheets("feuil3")
If .Range("A1").Value = .Range("A2") Then
Range("J3:L15").Select
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If

End With

ActiveWindow.Zoom = 75
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True





End Sub

 

[Papy Novice]

Salut Nat,
il serait plus simple peut-être, et c'est par là que nous aurions du commencer, de joindre ton fichier zippé
Bien à toi.
Jean

*****Tout ce qui est petit est appelé à grandir*****

 

[nat]

VOILA le fichier que jai refait car mon fichier source est trop gros
je cherche a imprimé 4 zones sur UNE feuil

MERCI pour ton aide

 

[Papy Novice]

Bonsoir Nat,
En espérant que c'est bien selon tes désirs.
Cordialement à toi.
Jean

 

[nat]

je te remercie pour ton aide t super gentil

te souhaite une bonne soirée
bis
cette macro marche super reste a mettre une condition sur chaque zone
du genre
If .Range("A1").Value = .Range("B1") Then ( si a1 =A2 imprimé la zone 1 sinon non idem pour les autres zones
zone 2
( si a1 =A3 imprimé la zone 2 sinon non


Sub QuatreZones()
Sheets("Feuil3").Select
Range("B5:l33").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$l$33"
Call MacroAlignement
ActiveWindow.Zoom = 100
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Call MacroZoneTotale
Call Selection
End Sub

 

[Papy Novice]

Bonsoir Nat,
Heureux d'avoir pu te rendre service selon l'esprit de ce forum à qui je souhaite longue vie et un G R A N D M E R C I à ses fondateurs.
Restant au service de chacun(e) selon mes possibilités.
Jean

*****Tout ce qui est petit est appelé à grandir*****

 

[Papy Novice]

Re bonsoir Nat,

Est-ce ceci que tu attendais ?
Bonne soirée à toi.

*****Tout ce qui est petit est appelé à grandir*****

 

[nat]

Papy Novice T UN Amour !!!!!!
ça marche comme je v

je te souhaite bonne soirée et encore merci a toi
bis nat