Discussion :

[lucarno]

Bonjour,

Je fais de nouveau appel à vos services, car j'aimerais créer une zone d'impression dynamique, et j'ai des difficultés avec la propriété "PrintArea".

Mon code est le suivant :

Code :

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

1
2
Range(Cells(1,1), Cells(MaxM1, MaxM2)).Select
ActiveSheet.PageSetup.PrintArea = Cells(1, 1) & ":" & Cells(MaxM1, MaxN1)

Le code plante en erreur 1004 sur l'impossibilité de définir la propriété PrintArea de la classe Setup.

Pour m'en sortir, il faudrait que je détermine la dernière lettre de la colonne et le nombre de lignes pour avoir le code qui marche, par exemple :

Code :

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

ActiveSheet.PageSetup.PrintArea = "A1:G27"

Mais j'aimerais éviter cette manipulation.

Pouvez-vous m'aider ?
D'avance, merci

[SilkyRoad]

bonjour

Fait un essai en remplaçant

Code :

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

Cells(1, 1) & ":" & Cells(MaxM1, MaxN1)

par

Code :

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

Cells(1, 1).Address & ":" & Cells(MaxM1, MaxN1).Address

michel

[lucarno]

Bonjour SilkyRoad, et merci de votre aide.

J'ai essayé en ajoutant ".Address", et c'est parfait. Mon problème est donc résolu.

Encore merci.