
Cells(row, col).SparklineGroups.Add Type:=xlSparkLine, SourceData:=Range(Cells(row1,col1), Cells(row2, col2)).Address |
Range("q2").SparklineGroups.Add Type:=xlSparkLine, SourceData:="C2:P2" |
For index = 1 To numeroPixel
Cells(row5, (3 + numeroBande)).Select
With Selection
.SparklineGroups.Add Type:=xlSparkLine, SourceData:=ActiveSheet.Range(Cells(row5, 3), Cells(row5, (2 + numeroBande))).Address
.SparklineGroups.Item(1).Points.Markers.Visible = True
End With
row5 = row5 + 1
Next index |
