Textbox sur formulaire

Bonjour le forum ,je suis novice en programmation VBA et je débute depuis peu ,je réalise un fichier et je suis bloqué sur la textbox "TbxN1" je souhaiterais que lorsque je sélectionne par exemple 2033 ,elle affiche la valeur en M15 c'est à dire le total de 2022 .Merci de votre aide

Bonjour Cfab6, le forum,

A tester: on peut se passer du bouton "Afficher valeurs"...

Private Sub CmbAnnee_Change()
 Dim lig%
  With Sheets("Accueil")
    Set cel = .Range("C3:C37").Find(What:=CmbAnnee, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then
     lig = cel.Row
      TbxAnciennete.Value = Cells(lig, 4).Value
      TbxSocle.Value = Cells(lig, 5).Value
      TbxJoursS.Value = Cells(lig, 10).Value
      TbxAbondement.Value = Cells(lig, 12).Value
      TbxN1.Value = IIf(cel <> 2020, .Range("M" & lig - 1), "")
    End If
   End With
End Sub

[EDIT] bonjour Patty5046

Cordialement,

BonjourCfaB6

Essaie de modifier comme cela:

Private Sub CmbAfficher_Click()
    'procedure permettant d'extraire et afficher le resultat selectionne dans la liste
    If CmbAnnee <> "" Then
    Dim no_ligne As Integer

    no_ligne = CmbAnnee.ListIndex + 3
       TbxAnciennete.Value = Cells(no_ligne, 4).Value
       TbxSocle.Value = Cells(no_ligne, 5).Value
       TbxJoursS.Value = Cells(no_ligne, 10).Value
       TbxAbondement.Value = Cells(no_ligne, 12).Value
       TbxN1.Value = Cells(no_ligne - 1, 13).Value
    Else
    MsgBox "Veuillez selectionner une année "
    End If

End Sub

TbxN1.Value = Cells(no_ligne - 1, 13).Value

A plus

Merci beaucoup c'est parfait je vous remercie Patty5046 et xorsankukai ,j'aurai une autre demande mais je vais d'abord chercher et si je coince je reposterai .

Bravo