1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
'trait vertical 1
Me.Line (0, 0)-(0, 5000), 0, BF
'trait vertical 2
Me.Line (909, 0)-(909, 5000), 0, BF
'trait vertical 3
Me.Line (7552, 0)-(7552, 5000), 0, BF
'trait vertical 4
Me.Line (8665, 0)-(8667, 5000), 0, BF
'trait vertical 5 de base
Me.Line (9292, 0)-(9292, 5000), 0, BF
'trait vertical 6
Me.Line (10672, 0)-(10672, 5000), 0, BF
'trait vertical 7
Me.Line (11172, 0)-(11172, 5000), 0, BF
End Sub |
Partager