XL 2010 Définition d'une zone d'impression en fonction d'un critère

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #2

Bonjour Renaud,
Peut être quelques chose comme ça :

VB:

If [C55] = "" Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$X$51"
Else
    ActiveSheet.PageSetup.PrintArea = "$A$1:$X$64"
End If

ou plus court :

VB:

ActiveSheet.PageSetup.PrintArea = "$A$1:$X$51"
If [C55] <> "" Then ActiveSheet.PageSetup.PrintArea = "$A$1:$X$64"

 

Vote positif 0 Vote négatif

R

Renaud22

XLDnaute Junior

• 2 Mars 2023

• #3

Merci sylvanu pour votre réponse.

Je ne suis pas un expert, loin de là, en programmation VBA. Pourriez-vous m'indiquer où je dois insérer les lignes de code afin que lorsque j'active "Aperçu avant impression" je vois la page tenant compte des critères définis ($A$1:$X$51, si C55 est vide ou $A$1:$X$64, si C55 contient une valeur). Si vous pourriez me transmettre un exemple de fichier, cela serait très apprécié.

Salutations,

Renaud22

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #4

Renaud22 à dit:

cela serait très apprécié.

Cliquez pour agrandir...

Ce qui serait très apprécié c'est que vous fournissiez un fichier test.
C'est d'ailleurs précisé dans notre charte (Lien):

2.5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant à ce que les données soient fictives et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Cliquez pour agrandir...

 

Dernière édition: 2 Mars 2023

Vote positif 0 Vote négatif

R

Renaud22

XLDnaute Junior

• 2 Mars 2023

• #5

Désolé sylvanu,

Je joins le fichier "Exemple.xlsm" comme fichier test.

Salutations,

Renaud22

 

Pièces jointes

• Exemple.xlsm

  26.7 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #6

Le fait de faire "Aperçu avant impression" ne déclenche aucune macro.
Une solution est d'avoir un bouton pour lancer cette macro.
En PJ un essai, j'ai mis la zone d'impression sur une seule feuille de façon à bien voir l'effet obtenu. Avec :

VB:

Sub ApercuAvantImpression()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$X$51"
    If [C55] <> "" Then ActiveSheet.PageSetup.PrintArea = "$A$1:$X$64"
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

Pièces jointes

• Exemple.xlsm

  32.1 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mars 2023

• #7

re
Bonjour
le mieux c'est simple si tu veux que cela soit automatique
si ta cellule c55 est modifié par formule utilise l'event calculate
si ta celluleC55 est modifiée par vba ou manuellement dans l'event change

ben dans ces deux event tu met

VB:

 ActiveSheet.PageSetup.PrintArea = "$A$1:$X$51"
    If [C55] <> "" Then ActiveSheet.PageSetup.PrintArea = "$A$1:$X$64"

terminé quand tu fera ton printpreview l'area sera le bon

simple comme "Bonjour"

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #8

Bonsoir Patrick,
Cela veut dire qu'à chaque nouveau calcul ou recalcul dans la feuille, on va exécuter cette macro.
Sur XL2007 c'est très long, sur mon PC cela avoisine les 300ms. Je préfère de loin un bouton.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mars 2023

• #9

bonjour @sylvanu
je sais pas chez moi j'ai testé c'est instantané
a1 --> x51 ou x64 c'est rien comme area
j'ai un w 10 et office 2013 et 8 giga de mémoire ,c'est pas un bolide pourtant
et puis l'automation ca a un coup ma fois

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #10

Re,
J'ai lancé un test rapido, voir PJ.
C'est peut être mon 2007 ou un PC qui commence à s'essouffler .

 

Pièces jointes

• TpsModifZoneImpression.xlsm

  17 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mars 2023

• #11

re
grossomodo je met 10 fois moins de temps

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mars 2023

• #12

et en bloquant l'update de l'ecran je descends de 10/15 de moins

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #13

Si on utilise un event, il faut plutôt utiliser la première macro, on n'effectue qu'un seul PageSetup.
Mais ça veut dire que vous perdez 100ms sur chaque calcul. Ce qui peut être rédhibitoire.
NB: Il va me falloir penser à changer de bécane.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mars 2023

• #14

la maladie de Win 7 était de pourrire tes barrette mémoire
il y a des petites astuce en lignes de commande qui existent

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2023

• #15

Je suis en Win10.
Le problème est que j'ai un I5-2300 à 3GHz, mais il date de 2006. Mais ça pédale encore bien.

 

Vote positif 0 Vote négatif