XL 2013 Changer l'échelle de l'axe vertical selon le paramétre sélectionné

snoo

XLDnaute Nouveau
Bonjour,
Svp, je voudrais savoir lorsqu'on insère un graphique pour des résultats de plusieurs paramètres qui sont déjà les paramètres) dans un tableau avec liste déroulante, est ce qu'il est possible de définir les valeurs min et Max de l'axe vertical en fonction du paramètre sélectionné et qu'en changeant de paramètres les valeurs min max changent .
J'ai essayé mais lorsque je change de paramètres les valeurs restent les mêmes du dernier paramètres dont j'ai configurer les valeurs ..
Merci pour votre aide
 

snoo

XLDnaute Nouveau
Re,

Tout au départ derrière le sub
Re,

Application.Volatile
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O15:O16")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("O15").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("O16").Value
ElseIf Not Intersect(Target, Range("R15:R16")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("R15").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("R16").Value
End If
End Sub

comme ceci?! ça n'a pas marché!

Merci
Cordialement
 

Etoto

XLDnaute Barbatruc
Re,

Application.Volatile
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O15:O16")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("O15").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("O16").Value
ElseIf Not Intersect(Target, Range("R15:R16")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("R15").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("R16").Value
End If
End Sub

comme ceci?! ça n'a pas marché!

Merci
Cordialement
Re,

Ha bon, c'est bizarre, alors je ne trouve pas le problème, sorry
 

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs