XL 2013 Axe vertical Graphique

snoo · 23 Juin 2021

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

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

shinozak à dit:

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

shinozak · 23 Juin 2021

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

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

XL 2013 Axe vertical Graphique

snoo

XLDnaute Nouveau

shinozak

XLDnaute Occasionnel

snoo

XLDnaute Nouveau

shinozak

XLDnaute Occasionnel

snoo

XLDnaute Nouveau

Discussions similaires