Private Sub btValider_Click()
Dim sActivite As String
Dim bFound As Boolean
'On définie le nom de l'activité en fonction de la checkbox
Select Case True
Case Me.CheckBox1
sActivite = "Ent"
Case Me.CheckBox2
sActivite = "semaine"
Case Me.CheckBox3
Case Me.CheckBox4
Case Me.CheckBox5
Case Me.CheckBox6
sActivite = "For"
Case Me.CheckBox7
Case Me.CheckBox8
Case Me.CheckBox9
Case Me.CheckBox10
Case Else
Call MsgBox("Cochez une activité!")
Exit Sub
End Select
Dim c As Range
For Each c In Worksheets("Données").Range("A78:A" + CStr(Worksheets("Données").Range("A78").End(xlDown).Row))
If c.Value = sActivite Then
Worksheets("Données").Cells(c.Row, c.Column + 2).Value = Worksheets("Données").Cells(c.Row, c.Column + 2).Value - Me.Cells(37, 4).Value
bFound = True
Exit For
End If
Next
If Not bFound Then
Call MsgBox("Temps non décrémentés, validation annulé!")
Exit Sub
End If
'On efface les données
Range("A24:C36").Select
Selection.ClearContents
End Sub