Bonjour à tous,

J'ai un problème avec ma macro faite avec l'enregistreur, je veux faire un graphe pour 2 colonnes sur 673 lignes , je veux que le graphe affiche toutes les lignes sans que je l'agrandisse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Range("B2:C673").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("Graphe!$B$2:$C$673")
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 1").Width = 5669.2913385827