1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub LISTDPL_Click()
TEXTLIEUDEP = (LISTDPL.List(LISTDPL.ListIndex, 0))
Cells(LISTDPL.ListIndex + 18, 1).Activate
TEXTMOTIF = ActiveCell.Value
DATDEPRESJ = Left(ActiveCell.Offset(0, 5).Value, 2)
DATDEPRESM = Mid(ActiveCell.Offset(0, 5).Value, 4, 2)
DATDEPRESA = Right(ActiveCell.Offset(0, 5).Value, 4)
HDEPRES.Text = Left(ActiveCell.Offset(0, 6).Text, 2)
MDEPRES.Text = Right(ActiveCell.Offset(0, 6).Text, 2)
HARRMIS.Text = Left(ActiveCell.Offset(0, 7).Text, 2)
MARRMIS.Text = Right(ActiveCell.Offset(0, 7).Text, 2)
DATDEPMISJ = Left(ActiveCell.Offset(0, 8).Value, 2)
DATDEPMISM = Mid(ActiveCell.Offset(0, 8).Value, 4, 2)
DATDEPMISA = Right(ActiveCell.Offset(0, 8).Value, 4)
HDEPMIS.Text = Left(ActiveCell.Offset(0, 9).Text, 2)
MDEPMIS.Text = Right(ActiveCell.Offset(0, 9).Text, 2)
HARRRES.Text = Left(ActiveCell.Offset(0, 10).Text, 2)
MARRRES.Text = Right(ActiveCell.Offset(0, 10).Text, 2)
End Sub |