Discussion :

[WagaSeb]

Bonjour à ceux que je n'ai pas encore eu aujourd'hui , et pour les autres, ... soyez patients ...

Petite question concernant les graphiques :
Le pbs : mes ordonnées de graphiques (+/-40 graphs créés par macro) ont une police trop petite.
Qu'a cela ne tienne, les macros sont faites aussi pour ca !
Oui, mais !! :
Quand j'execute la macro en mode pas à pas, mes ordonnées se sont mises à la bonne taille, mais dès que je lance la macro en automatique, les polices redeviennent toute petite !
J'en perd mon Chinois moi ...
Quelqu'un peut il m'expliquer ????
Merci d'avance

[helios77]

Quand tu fais ton pas à pas, tu vas bien jusqu'au bout ?

C'est assez étrange en effet......
Ce que je te conseillerais peut etre de faire...même si çà va être galère
Mestdes Msgbox un peu partout dans ton code.. Puis lance tes macros en automatique
Ainsi, par dichotomie, tu devrais voir entre quels msgbox ta police redevient petit
En resserrant l'étau, tu trouveras peut etre pourquoi

[WagaSeb]

Effectivement je vais essayer cette methode, on va voir ce que ca donne ...
Merci pour l'idée !

[Currahee]

Je travaille actuellement à la mise en forme de graphiques par macro en VBA, et j'ai me suis heurté comme toi à des comportements différents en pas à pas et en automatique pour ce qui concerne la mise ne forme (OK en pas à pas, PB en automatique).

Une solution qui a résolu certains de mes pbs a été de passer Application.ScreenUpdating à True dans les morceaux de code posant pb (ex : ChartArea.Width dont je n'arrivais même pas à forcer la valeur ne serait-ce qu'en dur ) alors qu'à la base toute la macro se déroulait sans rafraichissement de l'affichage.


Autre solution : t'interesser à la propriété AutoscaleFont applicable à ChartArea , Legend , ... pour interdire les redimensionnements automatiques des objets.

Essaye avec ton graphique (chart) après sa création et avant mise en forme:
monchart.Axes(xlValue).TickLabels.AutoScaleFont = False

[WagaSeb]

Mais c'est vraiment très intérressant tout ca !!!!

Je vais faire quelques essai pour voir !

Un grand merci, je sens que je vais enfin avancer !

[WagaSeb]

heu, me suis peut etre un peu emballé

[Moi.Meme]

Slt,

j'ai remarque, en bossant sur un code sur internetexplorer, qu'il faut parfois demander au programme d'attendre avant de passer a la suite.

Tu peux essayer de mettre des

Code :

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

application.wait (now+ timevalue("00:00:02"))

avant certaines etapes de ton code: cela fera arreter le code pdt 2 secondes)

[Currahee]

Slt,

j'ai remarque, en bossant sur un code sur internetexplorer, qu'il faut parfois demander au programme d'attendre avant de passer a la suite.

Tu peux essayer de mettre des

Code :

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

application.wait (now+ timevalue("00:00:02"))

avant certaines etapes de ton code: cela fera arreter le code pdt 2 secondes)

J'avais essayé cette solution dans le cas de mes pbs avec les mises en page de graphique, ça n'a strictement rien changé. Par contre le fait de laisser l'affichage se rafraichir comme évoqué dans mon post précédent :

[Currahee]

Alors Waga Pb résolu ???

Car si t'as trouvé d'autres solutions que celle que j'ai proposé je suis preneur

Cordialement,

[Invité]

Bonjour

Au lieu d'un WAIT as-tu essayé un DoEvents ?

Starec

[WagaSeb]

Le soleil à eu raison de moi, ce qui explique mon mutisme depuis quelque temps ... (oh la la qu'est ce que je parle bien aujourd'hui )

En fait ca marche mieux maintenant meme si j'ai encore l'impression de ne pas tout controler qd meme
En fait, j'avais mon graph que je dimensionnais avec l'option suivante sur True

Code :

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

1
2
3
With ActiveChart
    .Axes(xlValue).TickLabels.AutoScaleFont = True
End With

Donc la police se mettait à l'echelle.
Il a donc suffit de passer la valeur à False et dimensionner après ...

En fait je me suis sentis un peu con d'avoir mis un Post juste pour ca, c'était juste de la logique ...

J'espère que ca pourra t'aider qd meme
A+

[Currahee]

Code :

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

1
2
J'espère que ca pourra t'aider qd meme  
A+

Si tu parles pour moi c'est la solution que je t'avais conseillé Content que ton pb soit résolu.

Moi j'ai toujours besoin d'un Application.ScreenUpdating à True pour tracer certains graphes , mais bon ça va pas tuer mon appli, l'utilisateur s'en fout (et s'il s'en fout pas il a cas tracer sa trentaine de graphes à la main )

[ouskel'n'or]

Si c'est résolu, faut mettre résolu. Bouton en bas de l'écran