Zone d'impression variable
#1
Débutant XLPages

Inscription: 02/04/2010

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2003 et 2007
Posté le : 04-04-2010 11h38
Bonjour,

Je souhaiterais pouvoir définir des zones d'impressions différentes en fonction d'une valeur dans une cellule.
Je m'explique : si dans la cellule A1 (par exemple) la valeur est 1, je voudrais qu'excel définisse la zone d'impression comme étant le champ nommé : Impression1 (Feuil1!$A$1:$G$56). Si par contre la valeur de la cellule A1 est 2, je voudrais qu'excel définisse la zone d'impression comme étant le champ nommé : Impression2 (Feuil1!$A$1:$G$56;Feuil1!$H$1:$N$56).

Si possible j'aimerais pouvoir le faire sous excel et non sous visual basic.

Le fichier exel sera de préférence en version 97-2003.

Je vous joins le fichier Zones d'impression dans lequel, j'ai décris ce que je souhaite, les champs sont déjà nommés.

Je vous remmercie d'avance pour vôtre aide.

Damien





Pièce jointe:
xls Zones d'impression.xls   [ Taille: 18.50 Ko - Téléchargements: 679 ]
Hors Ligne
Rapport   Haut 

Re: Zone d'impression variable
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-04-2010 14h42
Bonjour Damien,

Bienvenue parmi nous

Un petit essai avec ce code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [C3]) Is Nothing Then
    If [C3] = 1 Then ActiveSheet.PageSetup.PrintArea = ("$A$1:$G$56")
    If [C3] = 2 Then ActiveSheet.PageSetup.PrintArea = ("$H$1:$N$56")
    If [C3] = 3 Then ActiveSheet.PageSetup.PrintArea = ("$O$1:$U$56")
End If

End Sub
 
Bonne journée,

mth

Pièce jointe:
zip Zones d'impression(1).zip   [ Taille: 10.08 Ko - Téléchargements: 819 ]
Edité par Mth le 04/04/2010 17:39:26
Hors Ligne
Rapport   Haut 

Re: Zone d'impression variable
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 04-04-2010 20h47
Bonsoir Damien, Mth, le Forum,

Notre ami Damien s'est visiblement emmêlé un peu les pinceaux puisqu'il me fait parvenir par messagerie privée la réponse qui t'est destinée Mth...

Je copie ci-après ce qui te revient de droit et je solde le présent sujet en [résolu] puisque c'est vraisemblablement le cas :
Citation :

Damien a écrit :
Bonjour Mth,

Un grand merci pour ton code, j'y étais presque arrivé mais ça bug pour je ne sais quelle raison.
Je sais que j'avais demandé une façon de faire sur excel, mais je m'étais également tourné vers VB à la condition qu'il le fasse automatiquement.
J'ai juste modifié ton code pour obtenir les zones d'impressions voulues : Impression1 permet d'imprimer la page 1, Impression2 permet d'imprimer la page 1 et la page 2 et ainsi de suite.
Vraiment un grand merci pour ton aide.

Merci!

Damien


Bien cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes