Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant, findemois As Variant
If Target.Address = "$D$20" Then
If Target = "" Then Exit Sub
Call ecriture
End If
'****************************************** Masquer/afficher************************
If Target.Address = "$D$18" Then
Application.ScreenUpdating = False
Sheets("Courriers").Range("28:28,232:289").EntireRow.Hidden = False
Range("20:69").EntireRow.Hidden = False
Select Case Target.Value
Case "Démission"
ActiveSheet.Range("20:23").EntireRow.Hidden = True
ActiveSheet.Range("41:69").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Licenciement Faute Grave"
ActiveSheet.Range("20:48").EntireRow.Hidden = True
ActiveSheet.Range("41:69").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
Case "Décès"
ActiveSheet.Range("20:28").EntireRow.Hidden = True
ActiveSheet.Range("41:69").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289,28:28").EntireRow.Hidden = True
Case "Fin de Contrat à Durée Déterminée"
ActiveSheet.Range("20:28").EntireRow.Hidden = True
ActiveSheet.Range("46:69").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
Case "Licenciement Autres"
ActiveSheet.Range("41:46").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
MsgBox ("Veuillez saisir la date de notification en cellule B18")
ActiveSheet.Range("B18").Activate
Case "Retraite"
ActiveSheet.Range("21:23").EntireRow.Hidden = True
ActiveSheet.Range("41:46").EntireRow.Hidden = True
Sheets("Courriers").Range("28:28").EntireRow.Hidden = True
mois = Month(Range("B17")) + 1
If mois = 13 Then
mois = 1
an = Year(Range("B17")) + 1
Else
an = Year(Range("B17"))
End If
findemois = CDate("01/" & mois & "/" & an) - 1
If Range("B17") <> findemois Then
MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
Range("B17") = ""
End If
Case "Rupture Conventionnelle"
ActiveSheet.Range("21:28").EntireRow.Hidden = True
ActiveSheet.Range("41:46").EntireRow.Hidden = True
Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
End Select
End If
'****************************************** Actions sur Courrier************************
If Intersect(Target, [B16]) Is Nothing Then Exit Sub
With Sheets("Courriers").[C198]
If IsDate([B16]) Then
.Value = "(dont une ancienneté groupe au " & CDate([B16]) & ")"
With .Characters(32, 10).Font
.Bold = True 'gras
.Color = vbBlack 'noir
End With
Else
.Value = ""
End If
End With
End Sub