XL 2019 Appliquer une macro sur un graphique

Fred0o

XLDnaute Barbatruc

• 14 Avril 2020

• #2

Bonjour thibaut93800

Essaie ceci :

VB:

Private Sub Worksheet_Activate()
    Sheets("PAGE 2").ChartObjects(1).Activate
    ActiveChart.Axes(xlValue).MaximumScale = Sheets("SAISIE").Range("AJ4").Value
End Sub

 

Vote positif 0 Vote négatif

T

thibaut93800

XLDnaute Nouveau

• 14 Avril 2020

• #3

Merci pour ton retour, mais cette modification agit sur l'axe des ordonnées et non des abscisses.
En modifiant xlvalue en xlcategory ça ne fonctionne pas non plus

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Avril 2020

• #4

Re-bonjour thibaut93800

Merci pour ton retour, mais cette modification agit sur l'axe des ordonnées et non des abscisses.
En modifiant xlvalue en xlcategory ça ne fonctionne pas non plus

Cliquez pour agrandir...

Au temps pour moi, j'avais mal lu le libelle de la question et m’étais laisse embarquer par ton début de solution. Pour modifier l'axe des abscisses, il faut ajuster la longueur des séries. Pour cela, le moyen le plus efficace est de faire le graphique avec des plages nommées qui s'auto-adapteront avec le nombre de valeurs souhaitées définies dans ta cellule AJ4. De ce fait, plus besoin de macro évènementielle.
Regarde la construction des series dans le gestionnaire de noms et comment elles sont utilisées dans le graphique.

 

Pièces jointes

• test_V1.xlsm

  544.4 KB · Affichages: 14

Vote positif 0 Vote négatif

T

thibaut93800

XLDnaute Nouveau

• 14 Avril 2020

• #5

Je vois bien que le graphique bouge automatiquement, mais plus aucune valeur n'est bonne.
Exemple la valeur de la cellule BV10 initialement à 13.45 est passée à 1345.

 

Vote positif 0 Vote négatif

T

thibaut93800

XLDnaute Nouveau

• 14 Avril 2020

• #6

Merci ça fonctionne, j'ai réactualisé les formules.
Par contre pour que je comprennes:
la série initiale tu la mets dans nom de la série et tu ajoutes ta formule dans valeur de la série.

Peux tu m'expliquer cette formule ='test_V1 (1).xlsm'!Sondage

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 15 Avril 2020

• #7

Bonjour Thibaut

Cela est la référence des ordonnées pour la série en question dans le graphique. C'est un champ nommé. Sa définition se trouve dans le gestionnaire de noms, c'est en fait un champ dynamique, qui s'auto-ajuste en fonction du chiffre saisi dans la cellule AJ4. Tu verras dans le gestionnaire de noms, que la définition de ce champ est : =DECALER(SAISIE!$BW$10;0;0;SAISIE!$AJ$4;1)
Ceci correspond a une plage commençant a BW10 et finissant a BW(10+ valeur de AJ4 - 1).
J'ai utilise le même principe pour les autres séries.

 

Vote positif 0 Vote négatif

T

thibaut93800

XLDnaute Nouveau

• 17 Avril 2020

• #8

Salut Fredoo,

Merci j'ai compris. Super ce système je vais pouvoir régler un second soucis sur un autre graph que je n'arrivais pas en macro.


Bonne journée,

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 17 Avril 2020

• #9

Bonjour thibaut

L'utilisation des champs nommes dynamiques est très utile lorsque l'on veut éviter de se lancer dans de la programmation et permet de traiter de nombreux cas.
J'adore creer des graphiques dynamiques et utilise ce subterfuge très souvent.
Bon courage pour la suite.

 

Vote positif 0 Vote négatif