[XL] Pas à pas ou auto, c'est pas pareil !

**WagaSeb** · 16/03/2007, 16h25

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** · 16/03/2007, 16h30

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** · 20/03/2007, 11h32

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

**Currahee** · 20/03/2007, 12h44

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