Par défaut zoomer des courbes en VBA

Résolu/Fermé

qwerty_213 - Modifié par crapoulou le 9/11/2016 à 13:16
qwerty_213 Messages postés 26 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 28 mai 2023 - 12 nov. 2016 à 17:51

Bonjour,

Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !

Sub Macro1()
'
' Macro1 Macro



'
zmin = 30000
zmax = 31000


For G = 1 To 10

ActiveSheet.ChartObjects("Graphique" G).Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = zmin
    ActiveChart.Axes(xlCategory).MaximumScale = zmax


Next G

End Sub

une idée ?

A voir également:

Par défaut zoomer des courbes en VBA
Windows 11 clic droit afficher plus d'options par défaut - Guide
Google par défaut en page de démarrage - Guide
Zoomer ecran pc - Guide
Mot de passe par defaut livebox - Guide
Mot de passe bios par défaut - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024 Ambassadeur 1 557
11 nov. 2016 à 12:37

Suggestion :

ActiveSheet.ChartObjects( G ).Activate

Ou, mieux :

Option Explicit

Sub Macro1()
Dim un_graphique As ChartObject
Dim zmin As Long
Dim zmax As Long

zmin = 30000
zmax = 31000
For Each un_graphique In ActiveSheet.ChartObjects
    un_graphique.Axes(xlCategory).MinimumScale = zmin 
    un_graphique.Axes(xlCategory).MaximumScale = zmax 
Next

End Sub

Réponse 2 / 2

qwerty_213
11 nov. 2016 à 13:02

je te remercie, ca marche bien

yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024 1 557
11 nov. 2016 à 18:53

Merci alors de marquer le sujet comme résolu.

qwerty_213 Messages postés 26 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 28 mai 2023 > yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024
12 nov. 2016 à 17:51

comment faire! je ne vois pas l'icone

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

La passerelle par défaut n'est pas disponible

Erreur d'exécution 13 Incompatibilité de type

Mot de passe perdu télé LG

J'ai oublier mon code mtn momo svp aidé moi a le debloquer