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

[Renaud22]

Bonjour à tous,

J'aurais besoin qu'on aide a concevoir un code VBA afin de définir une zone d'impression en fonction de la présence ou non d'une valeur dans une cellule.

Concrètement, pour une feuille active quelconque, la zone d'impression devra être définie entre les cellules "A1" & "X51" s'il n'y a pas de valeur dans la cellule "C55". Cependant, si une valeur est présence dans la cellule "C55", la zone d'impression devra être définie entre "A1" & "X64" .

Par exemple : =SI('Feuille_active_quelconque'!$C$55="";'Feuille_active_quelconque'!$A$1:$X$51;'Feuille_active'!$A$1:$X$64)

En vous remerciant par avance pour votre précieuse aide.

Salutations,

Renaud22

 

[sylvanu]

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

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

ou plus court :

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

 

[Renaud22]

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

 

[sylvanu]

cela serait très apprécié.

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.

 

[Renaud22]

Désolé sylvanu,

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

Salutations,

Renaud22

 

[sylvanu]

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 :

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

 

[patricktoulon]

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

 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"

 

[sylvanu]

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.

 

[patricktoulon]

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

 

[sylvanu]

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

 

[patricktoulon]

re
grossomodo je met 10 fois moins de temps

 

[patricktoulon]

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

 

[sylvanu]

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.

 

[patricktoulon]

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

 

[sylvanu]

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.