Discussion :

[rsoul]

Bonjour, je souhaite imposer une condition sur l'echelle de mes graphs, or cette condition se verifie dans un autre onglet.
Problème: lorsque vb va verifier si ma condition est respectée, je n'arrive plus à le faire revenir sur le graph précedemment créé!

Voic mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sheets("condi").Activate
If Range("A2") = "USD" And Range("B2") = "AED" Then
 With ActiveChart.Axes(xlValue, xlSecondary)
        .MinimumScale = 7.5
        .MaximumScale = 10
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlCustom
        .CrossesAt = 7.5
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
Else
End If

AVEZ VOUS UNE IDéE SUR LA FAçON DE RENDRE MON cHART "acTIVE"???

Précision: je ne nomme pas mes charts


Merci d'avance

[SilkyRoad]

Bonjour,

Pour activer le dernier graphique créé dans une feuille nommée Feuil1 :

Code :

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

1
2
Worksheets("Feuil1").ChartObjects(Worksheets("Feuil1"). _
    ChartObjects.Count).Activate

bonne soirée
michel