Impression automatisée

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Black Matou
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 26 août 2015
Version d'Excel : 2007 FR

Message par Black Matou » 30 janvier 2018, 19:16

Bonjour à tous,

J'ai un fichier excel qui possède 12 onglets. Ces 12 onglets correspondent à des rapports de validation de courbes de tendance (résultats mensuels d'analyses diverses). Sur chaque rapports/onglet j'ai un tableau qui reprend mes résultats, et ce tableau est associé à un graphique.

Afin de gagner du temps, j'ai créé un macro qui permet d'imprimer "en 1 clic" ces 12 onglets. Le problème c'est que lors de l'impression, ça me change l'axe des ordonnées. Sur l'image ci-dessous, sur le 1er rapport imprimé l'axe affiche bien les valeurs 60,0 - 55,0 - 50,0 - ...etc alors que sur les 11 autres rapports imprimé l'axe affiche 6,0 - 5,5 - 5,0

Impossible de comprend pourquoi ça me fait ça alors que sur mon fichier tous mes graphiques sont correct.

Avez-vous une idée ?

Pour info ma macro est la suivante (j'ai réduit à 3 onglets pour ce post) et elle se trouve sur un fichier à part :
Private Sub CommandButton1_Click()

    Workbooks.Open "C:\Users\Desktop\Trends.xls"

Sheets("RDT 1831-40").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 1831-40").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 1831-40").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 1831-40").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 1831-40").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 1831-40").PrintOut

Sheets("RDT 1831-120").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 1831-120").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 1831-120").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 1831-120").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 1831-120").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 1831-120").PrintOut

'[...]

Sheets("RDT 2714-40").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 2714-40").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 2714-40").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 2714-40").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 2714-40").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 2714-40").PrintOut

    Workbooks("Trends.xls").Close True

Unload Me

End Sub
Sans titre.png
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'409
Appréciations reçues : 306
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 1 février 2018, 04:04

Bonjour,

c'est impossible de trouver le problème sans avoir le fichier excel...
Vive ces nouvelles saisons qui nous colorent.
isabelle
B
Black Matou
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 26 août 2015
Version d'Excel : 2007 FR

Message par Black Matou » 1 février 2018, 17:40

Au final c'est bon. Après 1 journée à m'arracher les cheveux j'ai trouvé la solution

J'ai décoché la case "Lier à la source" lorsque l'on fait un clic droit sur l'axe, puis dans "Mise en forme de l'axe..." --> "Nombre"
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'409
Appréciations reçues : 306
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 1 février 2018, 23:28

Merci pour ce retour, au plaisir!
si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!
Vive ces nouvelles saisons qui nous colorent.
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message