Dim dateDemande As Integer
Dim rsp1 As Integer
Dim rsp2 As Integer
Dim xxx As Integer

Sub CommandButton1_Click()
xxx = dateSelect.ListIndex + 2

If xxx <= 2 Then
sp1J0.Enabled = False
sp1N0.Enabled = False
sp2J0.Enabled = False
sp2N0.Enabled = False
sp1J0.ForeColor = &H80000005
sp1N0.ForeColor = &H80000005
sp2J0.ForeColor = &H80000005
sp2N0.ForeColor = &H80000005
date0.ForeColor = &H8000000C

Else
sp1J0.ForeColor = &H80000012
sp1N0.ForeColor = &H80000012
sp2J0.ForeColor = &H80000012
sp2N0.ForeColor = &H80000012
date0.ForeColor = &H80000012
sp1J0.Enabled = True
sp1N0.Enabled = True
sp2J0.Enabled = True
sp2N0.Enabled = True
End If

If xxx > 1 And rechercheSP1 <> "" And rechercheSP2 <> "" Then
dateDemande = (dateSelect.ListIndex * 2) + 6
rsp1 = rechercheSP1.ListIndex + 7
rsp2 = rechercheSP2.ListIndex + 7
sp1 = Sheets("RH").Cells(rsp1, 3)
sp2 = Sheets("RH").Cells(rsp2, 3)

sp1J0.Value = Sheets("RH").Cells(rsp1, dateDemande - 2).Value
sp1J1.Value = Sheets("RH").Cells(rsp1, dateDemande).Value
sp1J2.Value = Sheets("RH").Cells(rsp1, dateDemande + 2).Value

sp1N0.Value = Sheets("RH").Cells(rsp1, dateDemande - 1).Value
sp1N1.Value = Sheets("RH").Cells(rsp1, dateDemande + 1).Value
sp1N2.Value = Sheets("RH").Cells(rsp1, dateDemande + 3).Value

sp2J0.Value = Sheets("RH").Cells(rsp2, dateDemande - 2).Value
sp2J1.Value = Sheets("RH").Cells(rsp2, dateDemande).Value
sp2J2v = Sheets("RH").Cells(rsp2, dateDemande + 2).Value

sp2N0.Value = Sheets("RH").Cells(rsp2, dateDemande - 1).Value
sp2N1.Value = Sheets("RH").Cells(rsp2, dateDemande + 1).Value
sp2N2.Value = Sheets("RH").Cells(rsp2, dateDemande + 3).Value

date0 = Sheets("MATRICE").Cells(xxx - 1, 22)
date1 = Sheets("MATRICE").Cells(xxx, 22)
date2 = Sheets("MATRICE").Cells(xxx + 1, 22)
date0 = format(date0, "dd MMMM")
date1 = format(date1, "dd MMMM")
date2 = format(date2, "dd MMMM")
CommandButton2.Enabled = True
CommandButton1.Enabled = False
CommandButton3.Enabled = True

Else
MsgBox "Toutes les cellules ne sont pas renseignées...", vbExclamation, "Attention"

End If



End Sub

Sub CommandButton2_Click()
Sheets("RH").Cells(rsp1, dateDemande - 2).Value = sp1J0.Value
Sheets("RH").Cells(rsp1, dateDemande).Value = sp1J1.Value
Sheets("RH").Cells(rsp1, dateDemande + 2).Value = sp1J2.Value

Sheets("RH").Cells(rsp1, dateDemande - 1).Value = sp1N0.Value
Sheets("RH").Cells(rsp1, dateDemande + 1).Value = sp1N1.Value
Sheets("RH").Cells(rsp1, dateDemande + 3).Value = sp1N2.Value

Sheets("RH").Cells(rsp2, dateDemande - 2).Value = sp2J0.Value
Sheets("RH").Cells(rsp2, dateDemande).Value = sp2J1.Value
Sheets("RH").Cells(rsp2, dateDemande + 2).Value = sp2J2.Value

Sheets("RH").Cells(rsp2, dateDemande - 1).Value = sp2N0.Value
Sheets("RH").Cells(rsp2, dateDemande + 1).Value = sp2N1.Value
Sheets("RH").Cells(rsp2, dateDemande + 3).Value = sp2N2.Value

CommandButton2.Enabled = False


If MsgBox("Voulez vous faire une autre modification ?", vbYesNo + vbQuestion, "Modification Effectuée ") = vbNo Then
Unload UserForm1
End If



End Sub


Sub CommandButton3_Click()
CommandButton2.Enabled = False
CommandButton1.Enabled = True

sp1.Value = ""
sp2.Value = ""

sp1J0.Value = ""
sp1J1.Value = ""
sp1J2.Value = ""

sp1N0.Value = ""
sp1N1.Value = ""
sp1N2.Value = ""

sp2J0.Value = ""
sp2J1.Value = ""
sp2J2.Value = ""
sp2N0.Value = ""
sp2N1.Value = ""
sp2N2.Value = ""

date0 = ""
date1 = ""
date2 = ""

End Sub

Private Sub CommandButton4_Click()
dateSelect = ""
rechercheSP1 = ""
rechercheSP2 = ""

sp1.Value = ""
sp2.Value = ""

sp1J0.Value = ""
sp1J1.Value = ""
sp1J2.Value = ""

sp1N0.Value = ""
sp1N1.Value = ""
sp1N2.Value = ""

sp2J0.Value = ""
sp2J1.Value = ""
sp2J2.Value = ""
sp2N0.Value = ""
sp2N1.Value = ""
sp2N2.Value = ""

date0 = ""
date1 = ""
date2 = ""

UserForm1.Hide
UserForm2.Show

End Sub

Private Sub CommandButton5_Click()
Unload UserForm1
End Sub

Private Sub dateSelect_Change()
dateSelect.Value = format(dateSelect.Value, "dd MMMM")

End Sub