Finalisation fichier de calcul

Rebonjour le forum je reviens vers vous pour la fin de mon fichier ,je souhaiterais au lieu de :TbxSocleP.Value = Coef
.Range("N38").Value = TbxSocleP.Value

Est-il possible de faire ((Valeur TbxSocle + Valeur TbxJourS + Valeur TbxAbondement)*1,74) + Valeurs TbxN1 et de mettre le résultat dans la colonne Total proratisé sur l'année choisie pour le calcul.

Merci de votre aide

J'ai modifié mon fichier et il me reste a trouver la solution pour que l'a valeur Tbx1 soit inscrite dans la colonne M sur la ligne de l'année choisie pour le calcul .

Merci de votre aide

Bonsoir Cfab6, le forum,

Essaies ainsi:

Private Sub CmdbCalcul_Click()
 Dim Lig As Long, Coef As Long, L As Long
  With Sheets("Accueil")
   Lig = Application.Match(CmbdMois.Value * 1, Range("O1:O16"), 0)
    Select Case TbxAnciennete.Value * 1
     Case Is < 11: Coef = Cells(Lig, "P")
     Case Is < 21: Coef = Cells(Lig, "Q")
     Case Else: Coef = Cells(Lig, "R")
    End Select
   TbxSocleP.Value = Coef
   Tbx1.Value = ((Coef + TbxAbondement + TbxJoursS) * 1.74) + TbxN1
    Set cel = .Range("C3:C37").Find(What:=CmbAnnee, LookIn:=xlValues, lookat:=xlWhole)
     If Not cel Is Nothing Then
     .Range("N" & cel.Row) = CDbl(Tbx1.Value)
     End If
  End With
End Sub

Cordialement,

Et voilà c'est parfait merci Xorsankukai et aussi le forum ,bravo rapide et efficace , j'ai terminé mon fichier je recommande Excel-pratique .