Private Sub CommandButton_valider_Click()
Select Case ComboBox_Poste.Value 'combobox contenant le poste CP ou CPN
Case "CP" To "CPN" 'Programme pour condition si solde CP insufisant
If ComboBox_date.Value <= [Congés!F8] Then 'Congé!F8 contient une autre date
Soldecp = [Congés!B24].Value
Else
Soldecp = [Congés!H24].Value
End If
If Soldecp = 0 Then
MsgBox "Votre solde de congé payé est insufisant !", 16, "ATTENTION"
Exit Sub
End If