Magic_Doctor XLDnaute Barbatruc 10 Décembre 2017 #1 Bonsoir, Je voudrais assigner automatiquement une valeur minimale pour l'axe des ordonnées (qui, dans ce cas, n'est pas 0). Je connais cette valeur minimale, mais je ne parviens pas à faire en sorte qu'elle se substitue à 0. Pièces jointes Courbes2.xlsm 22.7 KB · Affichages: 23
Bonsoir, Je voudrais assigner automatiquement une valeur minimale pour l'axe des ordonnées (qui, dans ce cas, n'est pas 0). Je connais cette valeur minimale, mais je ne parviens pas à faire en sorte qu'elle se substitue à 0.
Dranreb XLDnaute Barbatruc 10 Décembre 2017 #2 Bonsoir. VB: ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = [J24].Value Remarque: il vaudrait peut être mieux pour les étiquettes de l'axe : VB: ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = Int([J24].Value * 10) / 10 Dernière édition: 10 Décembre 2017 Vote positif 0 Vote négatif
Bonsoir. VB: ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = [J24].Value Remarque: il vaudrait peut être mieux pour les étiquettes de l'axe : VB: ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = Int([J24].Value * 10) / 10
Magic_Doctor XLDnaute Barbatruc 10 Décembre 2017 #3 Merci Dranreb, ça marche ! Vote positif 0 Vote négatif