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

[snoo]

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

 

[Etoto]

Re
Excusez moi , j'ai pas compris où est ce que je dois l'écrire?!
Merci beaucoup
Cordialement

Re,

Tout au départ derrière le sub

 

[snoo]

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]

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

 

[snoo]

@Rouge, Svp avez vous une idée pour cela?
Cordialement

 

[Rouge]

Bonjour,

Peut-on disposer de votre fichier (l'essentiel uniquement et sans données confidentielles)?

 

[snoo]

Bsr Je peux vous l'envoyer en mp?

 

[Rouge]

Bonjour,

Oui

 

[snoo]

Merci, Je vous ai envoyé un message mais j'ai pas su comment joindre un fichier?!

 

[Etoto]

Merci, Je vous ai envoyé un message mais j'ai pas su comment joindre un fichier?!

Re,

Seul les supporters XLD peuvent mettre des PJ en MP

 

[snoo]

Re,
Est ce que je peux avoir votre adresse mail @Rouge ? Si ça ne vous dérange

 

[Etoto]

Re,
Est ce que je peux avoir votre adresse mail @Rouge ? Si ça ne vous dérange

Re,

Demande-la lui en MP.