Nicolas Lepauvre
XLDnaute Junior
Bonjour à tous
Je débute en VBA et fais face au problème suivant.
J’essaie d‘automatiser un climatogramme. Et cette automatisation est à moitié réussie car elle s’effectue sans graduation automatique de ses axes.
Pour automatiser la graduation des axes, j’ai écrit le code ci-dessous. Et il ne fonctionne pas.
Quelqu’un pourrait-il m’aider à y voir plus clair?
En avance recevez mes remerciements
Private Sub ComboBox3_Click()
'Axe des précipitations
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Feuil3.[W4]
ActiveChart.Axes(xlValue).MaximumScale = Feuil3.[Y4]
ActiveChart.Axes(xlValue).MajorUnit = Feuil3.[AA4]
Application.CommandBars("Format Object").Visible = False
'Axe des températures
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Feuil3.[W5]
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Feuil3.[Y5]
ActiveChart.Axes(xlValue, xlSecondary).MajorUnit = Feuil3.[AA5]
Application.CommandBars("Format Object").Visible = False
End Sub
Je débute en VBA et fais face au problème suivant.
J’essaie d‘automatiser un climatogramme. Et cette automatisation est à moitié réussie car elle s’effectue sans graduation automatique de ses axes.
Pour automatiser la graduation des axes, j’ai écrit le code ci-dessous. Et il ne fonctionne pas.
Quelqu’un pourrait-il m’aider à y voir plus clair?
En avance recevez mes remerciements
Private Sub ComboBox3_Click()
'Axe des précipitations
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Feuil3.[W4]
ActiveChart.Axes(xlValue).MaximumScale = Feuil3.[Y4]
ActiveChart.Axes(xlValue).MajorUnit = Feuil3.[AA4]
Application.CommandBars("Format Object").Visible = False
'Axe des températures
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Feuil3.[W5]
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Feuil3.[Y5]
ActiveChart.Axes(xlValue, xlSecondary).MajorUnit = Feuil3.[AA5]
Application.CommandBars("Format Object").Visible = False
End Sub