XL 2013 Axe vertical Graphique

snoo

XLDnaute Nouveau
Rouge à dit:
Chez moi tout marche bien, le code peut s'écrire aussi comme ceci:
VB:Copier dans le presse-papier
Private Sub Worksheet_Change1(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
Est-ce qu'avec le fichier joint cela fonctionne? Sinon pouvez-vous déposer votre fichier allégé?
Cliquez pour agrandir...
Bonjour,
je me suis aperçu qu'il fallait toujours cliquer sur entrée pour un faire un rafraîchissement des valeurs min et max après avoir changer de paramètres , Svp, y'aurait il un code pour que le rafraîchissement soit fait automatiquement?
Merci beaucoup
Cordialement
 

shinozak

XLDnaute Occasionnel
Bonjour snoo,

Essaie ça, à placer dans la feuille utilisé
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        ActiveSheet.ChartObjects("Graphique 1").Activate
        ActiveChart.Axes(xlValue).MinimumScale = Range("O15").Value
        ActiveChart.Axes(xlValue).MaximumScale = Range("O16").Value
        ActiveSheet.ChartObjects("Graphique 2").Activate
        ActiveChart.Axes(xlValue).MinimumScale = Range("R15").Value
        ActiveChart.Axes(xlValue).MaximumScale = Range("R16").Value
        Target.Select

End Sub
 

snoo

XLDnaute Nouveau
Bonjour snoo,

Essaie ça, à placer dans la feuille utilisé
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        ActiveSheet.ChartObjects("Graphique 1").Activate
        ActiveChart.Axes(xlValue).MinimumScale = Range("O15").Value
        ActiveChart.Axes(xlValue).MaximumScale = Range("O16").Value
        ActiveSheet.ChartObjects("Graphique 2").Activate
        ActiveChart.Axes(xlValue).MinimumScale = Range("R15").Value
        ActiveChart.Axes(xlValue).MaximumScale = Range("R16").Value
        Target.Select

End Sub
Bonjour
Merci pour votre réponse , mais c'est la même chose ça n'a pas fait le rafraîchissement, il faut cliquer entrée sur les cellules!

Cordialement
 

snoo

XLDnaute Nouveau
Re
J'ai essayé de mettre dansle code au lieu de change , j'ai mis select change là , je n'ai plus qu'à cliquer sur la cellule et l'axe vertical change , je voudrais savoir s'il ya un autre code pour que ça soit mise à jour sans mon intervention
Merci
 

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 678
dernier inscrit
arno12345678