Discussion :

[SAP_Excel]

Bonjour à tous,

Je viens vers vous car j'ai un petit soucis.
J'ai le tableau ci-dessous, un diagramme de gantt se générant en fonction des durées renseignées.

Suivant la durée du projet, le nombre de tache mon tableau est différents .


J'aimerai cependant qu'il s'adapte toujours au format une page j'ai testé un sub impression

j'ai tenté un sub impression

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
Sub impression()
Dim MyValue As Byte
MyValue = MsgBox("Voulez vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
 
With ActiveSheet
.PageSetup.PrintArea = "$A$1:$W$" & .[W65000].End(xlUp).Row
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlLandscape '
.FitToPagesWide = 1
.FitToPagesTall = True
.BlackAndWhite = True
.Zoom = 71
End With
.PrintOut Copies:=1
End With
 
End Sub

Il ne me donne absolument pas satisfaction...
Je n'ai également pas trouvé de collage spéciale .... si vos lumières peuvent me guider ...