Discussion :

[nkhalidy]

Bonjour tout le monde,

J'ai une question très simple : est-il possible d'ajuster automatiquement une zone d'impression d'impression.

En effet, j'ai défini sur excel une zone d'impression, sauf que si on m'ajoute une ligne ou colonne, il faut que je re-definisse manuellement et systématiquement la zone d'impression...
J'ai cherché sur la FAQ VBA : rien....trouvé...

Help !!!!

[doringen]

Code :

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

1
2
3
4
5
 
With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With

[AlainTech]

Utiliser l'enregistreur de macros et adapter à tes besoins le résultat qu'il te donnera.

[nkhalidy]

je veux ajuster automatiquement aux cellules non vides la zone d'impression...
Le code VB proposé par le programateur de macros, vous indique fatalement de sélectionner une plage au préalable.... hors je veux qu'elle s'ajuste automatiquement

[nkhalidy]

doringen : Merci pour le code, mais il s'agit "d'un autofit to 1"...

Ce que je veux c'est un definition de la zone d'impression automatique...

sachant que j'ai des colonnes "définies" (1à16), mais que je peux saisir des lignes en plus... donc j'ai besoin d'ajuster ma zone d'impression en fonction de ces nouvelles lignes.


help, help
Merci

[doringen]

compilé et testé
je pars du principe que la colonne A est toujours la "mieux" remplie et que tu ajustes ta zone d´impression en bas de cette colonne

Code :

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

1
2
3
4
5
Sub test()
Dim derline As Integer
derline = Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:P" & derline
End Sub