Hello everyone,

Sorry for English if there are faults I passed through a translator

I turn to you because I have a little problem

here I explain my worries I have an excel file to keep a schedule:
I have a tab that has no inside contains a lack of request button that you click on this button it indicates the date of early termination date, we selected the operator concerned, and if you tick the option c is CP RTT ect ...
and if valid this one refers to the schedule sheet or I have all my operators

I have a pretty special function if the operator decides to leave before checking in this one HR- automatically calculate time and attendance based on the number of hr- entered in the form

However, I want this one works for SansSoldes

 oSh.Cells(iLig, Colonne - 1).Value = IIf(Me.Frame2.Visible = True, Val(Replace(Me.TextBox1, ",", ".")), 1)
      NbHeure = NbHeure + oSh.Cells(iLig, Colonne - 1).Value
      oSh.Cells(iLig, Colonne).Value = Choix
      Select Case UCase(Choix)
        Case "CP", "RTTC", "RTTI", "MAL", "ATT", "CF", "AT", "CET", "PAT", "FERIE"
          oSh.Cells(iLig, Colonne - 2).ClearContents
        Case "HR-", "SANSSOLDES"
          If oSh.Cells(iLig, Colonne - 1) >= 3.5 Then EnPlus = 0.5
          oSh.Cells(iLig, Colonne - 2) = oSh.Cells(iLig, Colonne - 2) - oSh.Cells(iLig, Colonne - 1) - EnPlus
      End Select
    End If
  Next iLig
without balances is added to the line 7 of the code
it registered the good in my sheet but not for me without calculating balances while hr- works very well

thank you in advance for your assistance
Best regards
Ploz