Private Sub CommandButton1_Click(): Selection.Value = CDate("17/05/2020"): End Sub
Private Sub CommandButton2_Click(): Selection.Value = CDate("18/05/2020"): End Sub
Private Sub CommandButton3_Click(): Selection.Value = CDate("19/05/2020"): End Sub
Private Sub CommandButton4_Click(): Selection.Value = CDate("20/05/2020"): End Sub
Private Sub CommandButton5_Click(): Selection.Value = CDate("21/05/2020"): End Sub
Private Sub CommandButton6_Click(): Selection.Value = CDate("22/05/2020"): End Sub
Private Sub CommandButton7_Click(): Selection.Value = "CV": End Sub
Private Sub CommandButton8_Click(): Selection.Value = "DF": End Sub
Private Sub CommandButton9_Click(): Selection.Value = "DMP": End Sub
Private Sub CommandButton10_Click(): Selection.Value = "POL": End Sub
Private Sub CommandButton13_Click(): Selection.Value = "AZ": End Sub
Private Sub CommandButton14_Click(): Selection.Value = "X": End Sub
Private Sub CommandButton15_Click(): Selection.Value = "STOP": End Sub
Private Sub CommandButton16_Click(): Selection.Value = "DF": End Sub
Private Sub quitter_Click(): Unload Me: End Sub
Private Sub UserForm_Initialize()
Me.CommandButton1.BackColor = RGB(128, 128, 128)
Me.CommandButton2.BackColor = RGB(141, 180, 226)
Me.CommandButton3.BackColor = RGB(230, 184, 183)
Me.CommandButton4.BackColor = RGB(235, 241, 222)
Me.CommandButton5.BackColor = RGB(196, 215, 155)
Me.CommandButton6.BackColor = RGB(177, 160, 199)
Me.CommandButton7.BackColor = RGB(0, 112, 192)
Me.CommandButton8.BackColor = RGB(183, 222, 232)
Me.CommandButton9.BackColor = RGB(250, 191, 143)
Me.CommandButton10.BackColor = RGB(192, 80, 77)
'Me.CommandButton11.BackColor = RGB(226, 107, 10)
'Me.CommandButton12.BackColor = RGB(255, 255, 255)
Me.CommandButton13.BackColor = RGB(146, 208, 80)
Me.CommandButton14.BackColor = RGB(255, 0, 0)
Me.CommandButton15.BackColor = RGB(247, 150, 70)
Me.CommandButton16.BackColor = RGB(255, 255, 0)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer): Cancel = CloseMode = 0: End Sub