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

snoo · 18 Juin 2021

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 · 22 Juin 2021

snoo à dit:
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 · 22 Juin 2021

Etoto à dit:
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 · 22 Juin 2021

snoo à dit:
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 · 22 Juin 2021

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

Rouge · 23 Juin 2021

Bonjour,

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

snoo · 25 Juin 2021

Bsr Je peux vous l'envoyer en mp?

Rouge · 26 Juin 2021

Bonjour,

Oui

snoo · 27 Juin 2021

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

Etoto · 27 Juin 2021

snoo à dit:
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 · 27 Juin 2021

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

Etoto · 28 Juin 2021

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

Re,

Demande-la lui en MP.

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

snoo

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

snoo

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

snoo

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

snoo

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

snoo

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

snoo

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Discussions similaires