Discussion :

[jpma75]

Bonjour,

Le code suivant ne sélectionne pas ma zone d'impression définie par "Plage_Impression". Je souhaite que mon tableau s'imprime sur une page (cf. FitToPages) en fonction de cette plage définie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With ActiveSheet.PageSetup
        .PrintArea = Plage_Impression
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Zoom = 140 'True
    End With

Je tourne en rond. Je crains que vous me disiez que l'erreur de mon code est évidente mais elle m'échappe.
Merci d'avance pour vos lumières,
Cdt

[unparia]

Bonjour

Je crains que vous me disiez que l'erreur de mon code est évidente mais elle m'échappe.

et moi, je crains que tu ne comprennes pas que pour déterminer la cause de ton erreur, il est absolument indispensable que tu exposes :
- où et comment a été déclarée la variable Plage_Impression
- où et comment a été initialisée la variable Plage_Impression

Tu penses sans doute que cela peut se deviner ? --->> tu as tort

[Menhir]

Le code suivant ne sélectionne pas ma zone d'impression définie par "Plage_Impression".

Encore faudrait-il savoir ce que contient cette variable et quel est son type.

Je paris à 3 contre un qu'elle est de type Range. Gagné ?
Si c'est le cas, tu as faux.

Voir l'aide VBA accessible par la touche F1 : https://msdn.microsoft.com/fr-fr/VBA...5)%26rd%3Dtrue
(c'est écrit en gras dans l'aide)

Je crains que vous me disiez que l'erreur de mon code est évidente.

"Evidente" ? Peut-être pas.
Par contre, "soluble en utilisant l'aide VBA", certainement.

[jpma75]

Désolé pour mon manque de précision. Tout le module est ici >

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Option Private Module
Sub Impression()
Dim Plage_Impression
 
    ActiveSheet.Unprotect
 
    Plage_Impression = "A1:N25"
 
    With ActiveSheet.PageSetup
        .PrintArea = Plage_Impression
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Zoom = 140 'True
    End With
 
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.Protect
End Sub

Il est vrai que j'ai fait une tentative avec Range mais comme je me suis rendu compte que ça n'allait pas mieux, je n'ai rien ajouté à la déclaration de variable (donc Variant, n'est-ce pas ?).
Cdt

[Menhir]

je n'ai rien ajouté à la déclaration de variable (donc Variant, n'est-ce pas ?).

Mauvaise idée.
Je ne compte plus le nombre de demande sur ce forum dont le problème se résume à une mauvaise déclaration ou à l'utilisation de Variant (facile et séduisant, certes, mais souvent calamiteuse).
Utiliser Variant, c'est jouer à pile-ou-face avec son code.

Si tu sais ce que va contenir ta variable (ce qui représente dans 99% cas), indique-le dans la déclaration.
Ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Plage_Impression As String

Je te conseille aussi de mettre quelques $ à ton adresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Plage_Impression = "$A$1:$N$25"

[jpma75]

Merci !

J'ai pris bonne note pour la déclaration des variables.
Néanmoins, si Variant est "passe-partout", ça revient (pour le néophyte que je suis, à : "dans le doute abstiens-toi... de déclarer une variable si tu n'es pas sûr de ton coup !).
Pour (toujours le néophyte que je suis), le risque de laisser en Variant est une affaire de mémoire inutilement occupée. Déclarées ou pas, pour mes modestes applications, je n'ai jamais noté de ralentissement significatif.

J'ai appliqué tes conseils mais cela ne résout pas mon problème. Il est possible qu'il se situe au niveau des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.FitToPagesWide = 1
.FitToPagesTall = 1

Je souhaite en effet que mon tableau rentre sur une seule feuille !
Cdt

[Menhir]

Néanmoins, si Variant est "passe-partout", ça revient (pour le néophyte que je suis, à : "dans le doute abstiens-toi... de déclarer une variable si tu n'es pas sûr de ton coup !).

Non, ça revient à jour à la roulette russe en laissant VBA choisir lui-même le type qui lui semble le plus logique.
Souvent ça passe mais parfois ça coince.

Perso, je l'utilise TREEEES rarement et dans des cas très spécifiques.
Par exemple pour récupérer le résultat d'une fonction ou la valeur d'une cellule, pouvant avoir un type de valeur variable.

Pour (toujours le néophyte que je suis), le risque de laisser en Variant est une affaire de mémoire inutilement occupée.

Ca, c'était une préoccupation qui pouvait avoir cours dans les années 80.
Mais aujourd'hui, quand on parle de RAM en Go, utiliser des variables de type Integer plutôt que Long parce que ça prend moins de place mémoire, ça me fait exploser de rire.
A moins d'avoir une variables tableau avec plusieurs centaines de milliers d'éléments, la place occupée par des variables d'une macro VBA, franchement, on s'en tape le coquillard.

Déclarées ou pas, pour mes modestes applications, je n'ai jamais noté de ralentissement significatif.

Ce n'est pas (ce n'est plus) une question de vitesse mais de fiabilité et de propreté du code.

J'ai appliqué tes conseils mais cela ne résout pas mon problème. Il est possible qu'il se situe au niveau des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.FitToPagesWide = 1
.FitToPagesTall = 1

Je souhaite en effet que mon tableau rentre sur une seule feuille !

Tu as dit que ton problème était que la zone imprimée n'était pas bonne.
Si le symptôme est différent, il est normal que le remède conseillé ne fasse pas l'effet désiré.

[MarcelG]

Bonjour,

Tes lignes de codes sont contradictoires.
En effet, tu ne peux à la fois affecter une valeur à la propriété Zoom et forcer l'impression sur 1 page en largeur et hauteur.
C'est Excel qui définit le Zoom automatiquement.

Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Impression()
 
    Dim Plage_Impression As String
 
    ActiveSheet.Unprotect
 
    Plage_Impression = "A1:N25"
 
    With ActiveSheet.PageSetup
        .PrintArea = Plage_Impression
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
 
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.Protect
 
End Sub