1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub CommandButton1_Click()
Range("F4").Value = "En attende de validation par la BL"
Range("A4").Value = "=NOW()"
CommandButton1.Enabled = False
End Sub
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Application.CountA(Cells(4, 2).Resize(1, 4)) = 4 Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
Application.EnableEvents = False
Range("F4").Value = ""
Range("A4").Value = ""
Application.EnableEvents = True
End If
End Sub |
Partager