VBA - Option d'axe [Résolu/Fermé]

Messages postés
230
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
- - Dernière réponse : zivodul8
Messages postés
230
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
- 17 mai 2011 à 17:32
Bonjour,

Je souhaite connaitre le code VBA qui permet de définir la valeur à laquelle l'axe vertical croise l'axe horizontal d'un graphique (et inversement)?

Manuellement c'est facile, mais en VBA...

Merci beaucoup!

PS : pour le minimum et maximum des axes, je suis également preneur :)
Afficher la suite 

2 réponses

Messages postés
9169
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 octobre 2019
1652
0
Merci
bonjour
pour un graphique de type nuage de points

 With Sheets(1).ChartObjects(1).Chart.Axes(xlCategory) 
    .MinimumScale = -5 
    .MaximumScale = 12 
    .Crosses = xlCustom 
    .CrossesAt = -3 
 End With 
 With Sheets(1).ChartObjects(1).Chart.Axes(xlValue) 
    .MinimumScale = -2 
    .MaximumScale = 30 
    .Crosses = xlCustom 
    .CrossesAt = -1 
End With

mais le plus simple est d'utiliser l'éditeur de macros
Outils/macros/nouvelle macro
tu executes tes modifs
Outils/macros/arreter l'enregistrement
et tu adaptes le code
bonne suite
Messages postés
230
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
19
0
Merci
Merci beaucoup c'est parfait!

J'avais déjà essayé cette méthode pour trouver le code, mais il ne me codé que la sélection de l'axe. Peut être est ce parce que j'ai double cliqué sur l'axe?

En tout cas merci, et également pour la rapidité =)