Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Delais (2)
Range("B16").Font.Color = vbWhite
Else
Delais (2)
Range("B16").Font.Color = vbBlack
End If
End Sub
Private Sub CheckBox2_Click()
If Me.CheckBox1.Value = True Then
Delais (2)
Range("B14").Font.Color = vbWhite
Else
Delais (2)
Range("B14").Font.Color = vbBlack
End If
End Sub
Sub Delais(seconde As Integer)
Dim Start, PauseTime
PauseTime = seconde
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Delais (2)
Rows("16:16").Select
Selection.EntireRow.Hidden = True
Else
Delais (2)
Rows("15:17").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub CheckBox2_Click()
If Me.CheckBox2.Value = True Then
Delais (2)
Rows("14:14").Select
Selection.EntireRow.Hidden = True
Else
Delais (2)
Rows("13:15").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Sub Delais(seconde As Integer)
Dim Start, PauseTime
PauseTime = seconde
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
If Me.CheckBox1.Value = False
If Me.CheckBox1.Value = True