Alimenter une textbox via deux combobox

Bonjour à tous;

Je dois réaliser un projet en VBA: Création d'un formulaire pour calculer l'impôt sur le revenu.

Je suis bloquée sur ma partie où selon la situation familiale de la personne et le nombre de personne à charge dans son foyer , indique le nombre de part qu'elle a droit.

J'ai établi un tableau à deux dimension, et fait un codage selon mon tableau, mais ca ne fonctionne pas ... Si quelqu'un peut m'éclairer sur le sujet, je lui en serais très reconnaissante.

Code:

Private Sub txt_Part_AfterUpdate()

Select Case (cbx_SituationFam)

Case Is = Feuil2.Range("A14")

If cbx_NbrePers = Feuil2.Range("G13") Then

txt_Part = Feuil2.Range("B14")

ElseIf cbx_NbrePers = Feuil2.Range("G14") Then

txt_Part = Feuil2.Range("C14")

ElseIf cbx_NbrePers = Feuil2.Range("G15") Then

txt_Part = Feuil2.Range("D14")

Else

txt_Part = Feuil2.Range("E14")

End If

Case Is = Feuil2.Range("A15")

If cbx_NbrePers = Feuil2.Range("G13") Then

txt_Part = Feuil2.Range("B15")

ElseIf cbx_NbrePers = Feuil2.Range("G14") Then

txt_Part = Feuil2.Range("C15")

ElseIf cbx_NbrePers = Feuil2.Range("G15") Then

txt_Part = Feuil2.Range("D15")

Else

txt_Part = Feuil2.Range("E15")

End If

Case Is = Feuil2.Range("A16")

If cbx_NbrePers = Feuil2.Range("G13") Then

txt_Part = Feuil2.Range("B16")

ElseIf cbx_NbrePers = Feuil2.Range("G14") Then

txt_Part = Feuil2.Range("C16")

ElseIf cbx_NbrePers = Feuil2.Range("G15") Then

txt_Part = Feuil2.Range("D16")

Else

txt_Part = Feuil2.Range("E16")

End If

Case Is = Feuil2.Range("A17")

If cbx_NbrePers = Feuil2.Range("G13") Then

txt_Part = Feuil2.Range("B17")

ElseIf cbx_NbrePers = Feuil2.Range("G14") Then

txt_Part = Feuil2.Range("C17")

ElseIf cbx_NbrePers = Feuil2.Range("G15") Then

txt_Part = Feuil2.Range("D17")

Else

txt_Part = Feuil2.Range("E17")

End If

End Select

End sub

ps: vous trouverez en pièce jointe une capture de mon travail.

Bonjour et bienvenue sur le forum

Tu devrais plutôt joindre ton fichier, au lieu de copie d'écran dont on ne peut pas se servir...

Bye !

Voici mon fichier excel en pièce jointe