[B]Private Sub ajout_Click()[/B]
If moisdu.Value = "" Or moisau.Value = "" Then
MsgBox "Choisir un mois"
Exit Sub
ElseIf titulaire.Value = False And cdd.Value = False And interim.Value = False Then
MsgBox "Choisir un contrat"
Exit Sub
End If
'effectue une boucle de par exemple janvier à juin si janvier est dans le menu déroulant
'"de" et juin dans le menu déroulant "à"
For nbre = Sheets(moisdu.Value).Index To Sheets(moisau.Value).Index
trouve = False
With Sheets(nbre)
[COLOR=lime][B] [COLOR=red] .Unprotect 'deverrouillage[/COLOR][/B][/COLOR]
For Each cel_prenom In .Range(.Range("C9"), .Range("C65536").End(xlUp))
'ici une vériication est faite afin de ne pas créer la personne 2x dans le mois
If cel_prenom.Value = prenom.Value And cel_prenom.Offset(0, 1).Value = nom.Value Then
MsgBox prenom.Value & " " & nom.Value & " est déjà dans le mois " & Sheets(nbre).Name
trouve = True
Exit For
End If
Next
'si cette personne n'est pas dans le mois, l'ajoute et fait le tri
If Not trouve Then
der_lig = .Range("C9").End(xlDown).Row
der_col = .Range("IV5").End(xlToLeft).Column
.Rows(der_lig + 1).Insert
.Cells(der_lig + 1, 3).Value = prenom.Value
.Cells(der_lig + 1, 4).Value = nom.Value
If titulaire.Value = True Then
.Cells(der_lig + 1, 2).Value = "titu"
ElseIf cdd.Value = True Then
.Cells(der_lig + 1, 2).Value = "cdd"
ElseIf interim.Value = True Then
.Cells(der_lig + 1, 2).Value = "interim"
End If
.Range(.Range("B10"), .Cells(der_lig + 1, der_col)).Sort Key1:=.Range("D10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
[COLOR=red] [B] .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'verrouillage[/B][/COLOR] End With
Next nbre
Sheets(moisdu.Value).Activate
Unload UserForm1
End Sub
[B]Private Sub supprime_Click()[/B]
If moisdu.Value = "" Or moisau.Value = "" Or nom.Value = "" Or prenom.Value = "" Then
MsgBox "Choisir un mois et une personne"
Exit Sub
End If
For nbre = Sheets(moisdu.Value).Index To Sheets(moisau.Value).Index
With Sheets(nbre)
[B][COLOR=red] .Unprotect 'deverrouillage[/COLOR][/B]
For Each cel_prenom In .Range(.Range("C9"), .Range("C65536").End(xlUp))
'si la personne est trouvé dans le mois, elle est supprimé sinon ne fait rien
If cel_prenom.Value = prenom.Value And cel_prenom.Offset(0, 1).Value = nom.Value Then
cel_prenom.EntireRow.Delete
Exit For
End If
Next
[B][COLOR=red] .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'verrouillage[/COLOR][/B]
End With
Next
Sheets(moisdu.Value).Activate
Unload UserForm1
End Sub