Quelqu'un peut-il m'aider à débuguer ce code ? Plante sur la dernière ligne. Merci d'avance.
Bernard
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Set r1 = Range(Cells(NbLignes1 + 6, 2), Cells(NbLignes1 + NbLignes2 + 6, 2)) Set r2 = Range(Cells(NbLignes1 + 6, 5), Cells(NbLignes1 + NbLignes2 + 6, NbColonnes2)) Set r3 = Union(r1, r2) r3.Activate Charts.Add ActiveChart.ChartType = xlColumnStacked ActiveChart.SetSourceData Source:=Sheets("Volumes").r3, PlotBy:=xlRows
Partager