Discussion :

[bolloche]

Bonjour je voudrais modifier automatiquement un graphique pour les entres max et min de l'axe X . J'ai essaye ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
charts("graph").select
With .Axes(xlCategory)
            .ReversePlotOrder = True
            .TickLabelSpacingisauto= True
            .TickMarkSpacingisauto = true
            .AxisBetweenCategories = True
            .TickLabels.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
            .maximumvalue = Date2
            .minimumvalue =  Date1
 end with

merci
bonne journee

[J.Michel]

Essaye avec ça

Code :

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

1
2
3
4
5
 
   With ActiveChart.Axes(xlValue)
        .MinimumScale = ValeurMini
        .MaximumScale = ValeurMaxi
    End With

[bolloche]

merci pour la reponse
comment fait on pour apliquer ce code a un graphique en particulier
la commande suivande est suffisante

Code :

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

charts("truc").select

merci

[J.Michel]

Bonne question.
En fait je viens d'essayer et je n'arrive pas à sélectionner le graphique par son nom (ni par autre chose d'ailleur )
Je n'arrive à l'utiliser qu'avec "ActiveChart"
Quelqu'un de plus qualifié peut-il nous guider. Je suis intéressé également

[fring]

Bonjour,

Je viens de faire ce test et cela fonctionne

Code :

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

1
2
3
4
With Charts("Graph1").Axes(xlValue)
    .MaximumScale = Sheets("Feuil1").Range("A18").Value
    .MinimumScale = Sheets("Feuil1").Range("A3").Value
End With

[J.Michel]

Bonjour,

Quand j'essaye, ça fonctionne si le graphique est sur une feuille séparée nommée Graph1 mais pas s'il est incorporé en tant qu'objet sur une feuille de calcul type Feuil2

Tu as fait ton test dans quelle condition fing ?