Bonsoir encore moi j'ai un souci avec le code ci-dessous. Il y a un problème au niveau de cette ligne
ActiveChart.Axes(xlValue, xlSecondary).Select
qui n'est pas exécutée et le message erreur d'exécution 91 variable objet ou variable de bloc With non définie apparait. Je précise que j'ai fait ce code à l'aide d'une macro.
NB il y a un tableau qui est créé en même temps que le graphique et qui est sélectionné automatiquement et quand je le de-sélectionne manuellement et que je sélectionne le graphique, le code fonctionne.
Sub histogramme()
' faire apparaitre dans une message box
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("B2:" & Range("B2").SpecialCells(xlCellTypeLastCell).Address) _
, ActiveSheet.Range("$F$15:$L$24"), , False, True, True, True
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1
Selection.TickLabels.NumberFormat = "0%"
Application.CommandBars("Format Object").Visible = False
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Histogramme des cours CAC 40"
Selection.Format.TextFrame2.TextRange.Characters.Text = _
"Histogramme des cours CAC 40"
With Selection.Format.TextFrame2.TextRange.Characters(1, 28).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 28).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 18
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
End Sub
merci de m'aider. Cordialement