modifier echelle d'un graph en fonction de 2 cellules
Bonjour
J'ai un graphique pour le quel je voudrai modifier l'echelle des abssices et des ordonnées en fonction des valeurs que j'entre dans des cellules
Le problème c'est que ça fonctionne très bien lorsque c'est un nuage de point, mais des que je modifie le type de graphique en courbe ça ne fonctionne plus
Avez vous des idéees ?
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("b12:b15,c6:H6")) Is Nothing Then
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.Axes(xlValue).MinimumScale = Range("B12").Value
.Axes(xlValue).MaximumScale = Range("B13").Value
.Axes(xlCategory).MinimumScale = Range("B14").Value
.Axes(xlCategory).MaximumScale = Range("B15").Value
End With
End If
End Sub |
Merci pour votre aide :)
