Mettre à jours les échelles des graphiques via une macro
Résolu/Fermé
RicPix
Messages postés
10
Date d'inscription
dimanche 22 février 2015
Statut
Membre
Dernière intervention
24 janvier 2018
-
16 mars 2015 à 16:49
RicPix Messages postés 10 Date d'inscription dimanche 22 février 2015 Statut Membre Dernière intervention 24 janvier 2018 - 16 mars 2015 à 21:14
RicPix Messages postés 10 Date d'inscription dimanche 22 février 2015 Statut Membre Dernière intervention 24 janvier 2018 - 16 mars 2015 à 21:14
A voir également:
- Mettre à jours les échelles des graphiques via une macro
- Compte facebook suspendu 180 jours - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Compte instagram suspendu 180 jours - Guide
- Mettre à jour ses pilotes - Guide
3 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
16 mars 2015 à 17:47
16 mars 2015 à 17:47
Bonjour
Essaies comme ceci
Cdlmnt
Essaies comme ceci
With ActiveSheet.ChartObjects("Graph1").Activate If Range("Y12").Value = "" Then ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True else ActiveChart.Axes(xlValue).MinimumScale = Range("Y12").Value End If If Range("Z12").Value = "" Then ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True else ActiveChart.Axes(xlValue).MaximumScale = Range("Z12").Value End If
Cdlmnt
RicPix
Messages postés
10
Date d'inscription
dimanche 22 février 2015
Statut
Membre
Dernière intervention
24 janvier 2018
16 mars 2015 à 19:16
16 mars 2015 à 19:16
Oh merci, ça marche super bien ! :)
J'ai plus qu'à l'adapter pour tous mes graphiques et ça sera super.
Par contre, j'ai une autre question, un peu en décalé, mais :
- Si je veux appliquer une mise à jour des échelles à la centaine de graphes que j'ai dans ma feuille de la même façon, je dois noter quoi pour tous les affecter ?
(PS : Je veux juste modifier leurs ordonnées).
J'ai plus qu'à l'adapter pour tous mes graphiques et ça sera super.
Par contre, j'ai une autre question, un peu en décalé, mais :
- Si je veux appliquer une mise à jour des échelles à la centaine de graphes que j'ai dans ma feuille de la même façon, je dois noter quoi pour tous les affecter ?
(PS : Je veux juste modifier leurs ordonnées).
RicPix
Messages postés
10
Date d'inscription
dimanche 22 février 2015
Statut
Membre
Dernière intervention
24 janvier 2018
16 mars 2015 à 20:34
16 mars 2015 à 20:34
Hum, modifier les abscisse pardon
RicPix
Messages postés
10
Date d'inscription
dimanche 22 février 2015
Statut
Membre
Dernière intervention
24 janvier 2018
16 mars 2015 à 21:14
16 mars 2015 à 21:14
Ah non, c'est bon, j'ai trouvé, j'ai fait comme ceci :
Dim Graphes As ChartObject
For Each Graphes In ActiveWorkbook.ActiveSheet.ChartObjects
With Graphes.Chart.Axes(xlCategory)
If Range("U12").Value = "" Then
.MinimumScaleIsAuto = True
Else
.MinimumScale = Range("U12").Value
End If
If Range("V12").Value = "" Then
.MaximumScaleIsAuto = True
Else
.MaximumScale = Range("V12").Value
End If
End With
Next