Zone d'impression variable [Forums - Forum principal] : myDearFriend! Excel Pages

Zone d'impression variable		#1
Damien 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: Zones d'impression.xls [ Taille: 18.50 Ko - Téléchargements: 726 ]

Re: Zone d'impression variable		#2
Mth 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: Zones d'impression(1).zip [ Taille: 10.08 Ko - Téléchargements: 861 ] Edité par Mth le 04/04/2010 17:39:26

Re: Zone d'impression variable		#3
myDearFriend! 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 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

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.

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