RE-Remplissage automatique

Salut le forum, salut Blunet
Je reposte avec le meme sujet car je ne sais pas pourqoui, je ne peux pas repondre sur le fil d'origine.
J'ai reussi faire ce que je voulais avec votre aide, reste un petit problème, quand je selectionne CA puis le jour de debut puis le jour de fin, c bon, mais si je saisi en pour CP ou RTT, ca me rajoute la difference entre les dates sur les autres congés selectionnés!!!
Je joint le code car le fichier est trop gros,j'ai 2 controles calendrier, date debut et date fin.

Merci d'avance
Si par hasard quelqu'un veut mon fichier entier pour voir comment ca fait, pas de prob
800 Ko zippé

gex140328@wanadoo.fr

Private Sub Cal2_Click()
' debut - fin + 1 (debut ET fin incluse)
If CB1 = True And UF2.CB1.Enabled = True Then
'UF2.CB1.Enabled = False
'UF2.CB2.Enabled = False
'UF2.CB3.Enabled = False
UF2.InfoCP.Value = UF2.Cal2.Value - UF2.Cal1.Value + 1
UF2.InfoCP.Visible = True
If UF1.TextBox9.Value - UF2.InfoCP.Value < 0 Then MsgBox ('Pas assez de CP'): UF2.InfoCP.Value = '': UF2.CB1.Enabled = True
If UF1.TextBox9.Value = 0 Then UF2.InfoCP.Visible = False: CB1 = False
End If

If CB2 = True And UF2.CB2.Enabled = True Then
'UF2.CB2.Enabled = False
'UF2.CB1.Enabled = False
'UF2.CB3.Enabled = False
UF2.InfoCA.Value = UF2.Cal2.Value - UF2.Cal1.Value + 1
UF2.InfoCA.Visible = True
If UF1.TextBox5.Value - UF2.InfoCA.Value < 0 Then MsgBox ('Pas assez de CA'): UF2.InfoCA.Value = '': UF2.CB2.Enabled = True
If UF1.TextBox5.Value = 0 Then UF2.InfoCA.Visible = False: CB2 = False
End If

If CB3 = True And UF2.CB3.Enabled = True Then
'UF2.CB3.Enabled = False
'UF2.CB1.Enabled = False
'UF2.CB2.Enabled = False
UF2.InfoRTT.Value = UF2.Cal2.Value - UF2.Cal1.Value + 1
UF2.InfoRTT.Visible = True
If UF1.TextBox10.Value - UF2.InfoRTT.Value < 0 Then MsgBox ('Pas assez de RTT'): UF2.InfoRTT.Value = '': UF2.CB3.Enabled = True
If UF1.TextBox10.Value = 0 Then UF2.InfoRTT.Visible = False: CB3 = False

End If
End Sub