XL 2013 Axe vertical Graphique

[snoo]

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]

Bonjour snoo,

Essaie ça, à placer dans la feuille utilisé

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]

Bonjour snoo,

Essaie ça, à placer dans la feuille utilisé

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

 

[shinozak]

En faite, pour valider le contenu d’une cellule c’est soit entrée soit cliquer sur une autre cellule. Ma proposition gère les deux cas.

 

[snoo]

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