Export d'un tableau de taille variable sous forme d'image.

Version imprimable

2 pièce(s) jointe(s)

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 8O.

Pièce jointe 574253
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:

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 ...

02/07/2020, 20h24
Jean-Philippe André

Salut,

que se passera-t-il lorsque tu auras par exemple 25 tâches ? tu auras toujours une seule feuille ou plusieurs ?

As-tu fait des essais manuellement en utilisant l'enregistreur de macros ? Cela devrait déjà te fournir des pistes intéressantes sur les valeurs que tu fournis dans ton pagesetup :)

1 pièce(s) jointe(s)

Bonjour Jean-Philippe,

Je viens d'avoir une évolution dans mon projet suite à remarque de mon supérieur.

Il voudrait une étape intermédiaire pour mettre en forme mon tableau
voir schéma du besoin ci-dessous

Pièce jointe 574304

j'ai donc réaliser une petite macro pour faire le collage ( via le générateur de macro) et j'ai essayé de supprimer les select ( Vu sur un tuto du forum :) )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub paste() ' Worksheets("Masque").Activate 'J'active ma feuille ou il a le tableau Range("A3:AV7").Copy ' Je copie mon tableau : Question Comment faire une range variable Worksheets("FINAL").Activate ' J'active la feuille Final Range("B12").Select ' Je colle sur une cellule aléatoire: question peut on définir préalablement un encart pour un dimensionnement ActiveSheet.Pictures.paste.Select ActiveSheet.Shapes.Range(Array("Picture 3")).Select End Sub
Concernant vos interrogations

Citation:

que se passera-t-il lorsque tu auras par exemple 25 tâches ? tu auras toujours une seule feuille ou plusieurs ?

L'idéal serait de faire sur 1 feuille format A4 et A3 si ça dépasse X tache ( généralement maxi 20 opérations de fabrications). La durée ( nombre de semaine affiché risque d'être plus problématique car je peux avoir des projets jusqu'à 50 semaines.

J'ai inclus mes question en remarque dans le code à savoir:
- Comment faire une range variable
- peut on définir préalablement un encart pour un dimensionnement

PS: Petit up

Petit Up,

J'ai fais quelques test aujourd'hui

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub paste()
'
'Activate 'J'active ma feuille ou il a le tableau
 
 
 
   Worksheets("Masque").Range("A3", ActiveCell.SpecialCells(xlLastCell)).Copy
 
   ' Activate ' J'active la feuille Final
 
'  Sheets("Masque").Range("A3", ActiveCell.SpecialCells(xlLastCell)).Copy Destination:=Sheets("FINAL").Range("B12")  (le code ne marche pas car j'ai besoin d'un collage spéciale sous forme d'image) 
 
    Worksheets("FINAL").Activate
    Cells(12, 2).Select ' Selection de B12
    ActiveSheet.Pictures.paste
 
End Sub

Personne pour m'aider sur les problématique ci-dessus :calim2::calim2::calim2: Merci d'avance

1 pièce(s) jointe(s)

Update,

Nouvelle essai j'arrive presque à mon but .

voici le code que je saisie
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub paste() ' 'Activate 'J'active ma feuille ou il a le tableau Worksheets("Masque").Activate ' Systématiquement rediriger vers la feuille Masque Worksheets("Masque").Range("A3", ActiveCell.SpecialCells(xlLastCell)).Copy ' Copie du tableau complet Worksheets("FINAL").Activate Cells(43, 2).Select ' Selection de B43 ActiveSheet.Pictures.paste ' ActiveSheet.Shapes.Range(Array("Picture 11")).Select ' Je selectionne mon image Selection.ShapeRange.ScaleWidth 2.3, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 2.3, msoFalse, msoScaleFromTopLeft End Sub
Comme vous le remarquerai j'ai fait la dernière partie à l’enregistreur de macro.
Quelques interrogations subsiste néanmoins.
Comment faire pour sélectionner la bonne image à coup sur ? La nous voyons que c'est l'image 11. Mais si je supprime cette image je refais une itération de ma macro il y aura une erreur si je ne mets pas 12.
Comment ajuster au mieux la taille de l'image en fonction de la place dispo ? là j'ai choisis 2.3 après p

Ci dessous un screen de que j'obtiens,

Pièce jointe 574725

Merci d'avance pour votre aide

09/07/2020, 15h01
Jean-Philippe André

Salut,

tu as la possibilité de passer par une variable qui s'incrémente, ou sinon voir si le Shapes.Count est probant, mais je pense plus èa passer par une variable que tu set, ca fait plus propre ;)

Concernant les 2.3, ca reste du cosmétique, donc pas objectif ^^
09/07/2020, 15h21
SAP_Excel

Bonjour Jean-Philippe,

enième rebondissement mon supérieur n'apprécie pas que cela reste sur excel, il aimerait une présentation sur un autre format type PDF en reprenant l'exemple ci-dessus.

Première question est-ce possible?
Si oui quelle est la meilleur façon d'y procéder ?

Merci de ta patience
09/07/2020, 16h36
Jean-Philippe André

Pour faire du pdf c'est possible également, l'idée étant d'enregistrer le classeur en pdf directement.

Tu peux aisément faire une copie de ta plage à garder dans un nouveau classeur temporaire, que tu enregistres sous un format pdf.

Modulo les ajustements, c'est nettement plus rapide :D
09/07/2020, 17h55
mfoxy

Bonsoir SAP,

J'espère que ton patron te paie à l'heure, car avec tout ces revirements de situation, il t'en a fait perdre plusieurs.

Il n'est pas très "Agile".🤔

Bat,
10/07/2020, 08h03
SAP_Excel

Bonjour à tous,

Je comprend l'idée Jean-Philippe, par contre je ne vois absolument pas comment gérer ce passage.

MrFoxy, effectivement pas très "Agile" et "Lean" il ne s'agit d'une mission périphérique mais qui est très chronophage pour moi car pas du tout dans mes compétences maitrisées donc temps d'apprentissage très long

Salut,

en mode bourrin ca ferait quelque chose comme cela :

Code:

1
2
3
4
5
6
7
Dim Wbk As Workbook
Dim Wsh as Worksheet
Set Wbk = Application.Workbooks.Add
Set Wsh = Wbk.Worksheets(1)
Thisworkbook.Worksheets("Tafeuille").Range("TaPlage").Copy
Wsh.Range("A1").Paste
'et enfin la ligne de sauvegarde que je ne connais pas par coeur