type mismatch

  1. S

    XL 2019 Visual Basic: Run-time error '13': Type mismatch

    Bonjour la communauté, J'ai un petit souci avec le code VB suivant: Sub SetChartScales() Dim cht As Chart Dim cht1 As Chart Dim cht2 As Chart 'Graphique 1 Set cht = Worksheets("Graphiques").ChartObjects("Chart 1").Chart cht.Axes(xlValue).MinimumScale = Range("A5").Value 'Graphique 2 Set cht1...