Erreur d'exécution 91

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

Bonjour

Sans ton fichier, il est malaisé de voir d'où cela vient...

Bye !

Voici les données

9classeurnew.xlsm (93.04 Ko)

Bonjour j'aimerai relancer cette discussion j'ai vraiment besoin d'aide je n'y arrive pas

Bonjour

Tu envoies d'abord une macro sans la feuille de calcul qui lui es associée.

Quand je te demande le fichier, tu envoies un fichier de données sans macro, et qui apparemment n'est pas celui sur leque tourne la macro envoyée précédemment.

Alors, ne t'étonne pas...

Bye !

Euh ce sont les données avec lesquelles je travaille , surement que j'ai envoyé le mauvais fichier (sans macro)

Bonsoir voici le fichier j'espère que tu pourras maintenant m'aider. Merci

4classeurnew.xlsm (101.83 Ko)
Rechercher des sujets similaires à "erreur execution"