1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub TextBox110_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Frame1.TextBox110.Text = Now
Sheets("Archives").Range("O" & j).Value = CDate(UserForm1.Frame1.TextBox110.Text)
End Sub
Private Sub TextBox110_Change()
If UserForm1.Frame1.ComboBox46 < HeureDifférence("TextBox16", "TextBox110") Then
UserForm1.Frame1.Image52.Visible = False
UserForm1.Frame1.Image51.Visible = True
Else
UserForm1.Frame1.Image51.Visible = False
UserForm1.Frame1.Image52.Visible = True
End If
End Sub |
Partager