abscisse en haut des graphiques

Bonjour.
Clique sur l'axe des ordonnées, Format de l'axe, onglet "Echelle" et clique
"axe des abscisses coupe à l'ordonnée maximale".
Cordialement.
Daniel
"Methos" <azdazaezad@asdasda.com> a écrit dans le message de news:
432ab39d$0$28064$636a15ce@news.free.fr...

bonjour, je souhaiterais savoir comment il est possible d'avoir une
abscisse en haut des graf, en plus d'une autre abscisse en dessous. J'ai
cherché dans l'aide mais sans réponse exacte..

merci d'avance !

Bonjour.

Si j'ai bien compris ce que tu cherche.
Essaye ça et tire en ce qui t'intéresse ...

Alain CROS

Sub Axes()
On Error Resume Next
Dim XL As New Application, Ws As Worksheet
Set Ws = XL.Workbooks.Add(xlWBATWorksheet).Worksheets(1)
InsertAutoClose XL
If Second(Time) Mod 2& = 0& Then
With Ws
.[B1] = 9
.[B2] = 8
.[B1:B2].AutoFill .[B1:B5], xlFillSeries
.[B5].AutoFill .[B5:B9], xlFillSeries
With .[A1]
.Value = 1
.AutoFill Ws.[A1:A5], xlFillSeries
With .Parent
.[A6].Value = 4
.[A5:A6].AutoFill .[A5:A9], xlFillSeries
End With
Ws.ChartObjects.Add .Left, .Top, .Width * 5&, .Height * 20&
End With
With .ChartObjects(1).Chart
.SetSourceData Ws.[A1:B9], xlColumns
.ChartType = xlSurface
End With
End With
With XL
.ActiveSheet.ChartObjects(1).Activate
.ActiveChart.PlotArea.Select
.Left = Application.Left + 20&
.Top = Application.Top + 20&
.WindowState = xlNormal
.Visible = True
.Dialogs(xlDialogAxes).Show False, True, True
End With
Else
With Ws
.[B1] = 9
.[B2] = 8
.[B1:B2].AutoFill .[B1:B9], xlFillSeries
With .[A1]
.Value = 1
.AutoFill Ws.[A1:A9], xlFillSeries
Ws.ChartObjects.Add .Left, .Top, .Width * 5&, .Height * 20&
End With
With .ChartObjects(1).Chart
.ChartType = xlColumnClustered
.SetSourceData Ws.[A1:B9], xlColumns
End With
End With
With XL
.ActiveSheet.ChartObjects(1).Activate
.ActiveChart.PlotArea.Select
.Left = Application.Left + 20&
.Top = Application.Top + 20&
.WindowState = xlNormal
.Visible = True
.ExecuteExcel4Macro ("COMBINATION(4)")
.Dialogs(xlDialogAxes).Show False, True, True, False
End With
End If
Set Ws = Nothing
On Error GoTo 0
Set XL = Nothing
'Si courbe en 3D
'Arg1 = Axe principal Axe des abcisses(X)
' True cochée
' False non cochée
'Arg2 = Axe principal Axe des séries(Y)
' True cochée
' False non cochée
'Arg3 = Axe principal Axe des ordonnées(Z)
' True cochée
' False non cochée
'Si courbe en 2D
'Arg1 = Axe principal Axe des abcisses(X)
' True cochée
' False non cochée
'Arg2 = Axe principal Axe des ordonnées(Y)
' True cochée
' False non cochée
'Arg3 = Axe secondaire Axe des abcisses(X)
' True cochée
' False non cochée
'Arg4 = Axe secondaire Axe des ordonnées(Y)
' True cochée
' False non cochée
End Sub

Sub InsertAutoClose(XL As Application)
Dim I&, LeFile$
LeFile = CurDir & Application.PathSeparator & "$£µ"
I = FreeFile
Open LeFile For Output Lock Read Write As #I
Print #I, "Private Sub Auto_Close()"
Print #I, Tab(5); "On Error Resume Next"
Print #I, Tab(5); "ThisWorkbook.Saved = True"
Print #I, Tab(5); "Application.Quit"
Print #I, "End Sub"
Close #I
XL.Dialogs(xlDialogVbaInsertFile).Show (LeFile)
Kill LeFile
End Sub


"Methos" <azdazaezad@asdasda.com> a écrit dans le message de news: 432ab39d$0$28064$636a15ce@news.free.fr...
| bonjour, je souhaiterais savoir comment il est possible d'avoir une abscisse
| en haut des graf, en plus d'une autre abscisse en dessous. J'ai cherché dans
| l'aide mais sans réponse exacte..
|
| merci d'avance !
|
|

Merci !