Bonjour,
Je suis débutant VBA, j'ai un erreur dans ma 5eme Ligne.
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 i = 3 + Range("JM2").Value Range("JM3:TM" & i).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlAreaStacked ActiveChart.SetSourceData Source:=Range("'Détails Rang1'!$JM$3:$TM$i") ActiveChart.Location Where:=xlLocationAsObject, Name:="Accueil"
Partager