[XL-2003] comment automatiser des reglages de graphiques

[blandinais]

Bonjour
Sous Windows 7 et Excel 2003
J’ai un fichier comprenant 2 feuilles : F1 et F2
F1 stocke des tableaux qui vont servir à alimenter des graphiques
F2 stocke les graphiques G1 G2 G3 G4 etc

Tout les graphiques doivent avoir la même échelle d’axe en Ordonnée ex : 250
Il faut donc reprendre l’ensemble des graphiques pour les régler en limite à 250

Si au cours du temps ( une année ) une valeur dans les tableaux dépasse 250 ex 310 il faut re-régler manuellement tout les graphiques pour mette la limite à 310+20 = 330

Est il possible via Macro , Vba de créer un script qui récupérerai une valeur dans une cellule précise de la feuille F1 ex : « Limite » pour modifier automatique les paramètres des graphiques avec la valeur de « limite »

Merci pour votre aide
Cordialement

[delphine35]

Dans un userform, j'ai créé un TextBox appelé LIMITE et un bouton OK

voici un code, qui modifie le max des axes des graphes de la feuilles "F2" quand tu clique sur le bouton OK. Il met en Max la valeur contenu dans la zone LIMITE.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub OK_Click()
 
Dim val1 As Integer
 
val1 = LIMITE.Value
 
For i = 1 To ActiveSheet.ChartObjects.Count
    Worksheets("F2").ChartObjects(i).Chart.Axes(xlValue).MaximumScale = val1
Next i
 
End Sub