Multipage ,combobox et textbox

Private Sub TextBox1_Change()
Call Calcul_Salaire(TextBox1)
End Sub

Private Sub TextBox2_Change()
Call Calcul_Salaire(TextBox2)
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem 'janvier'
    .AddItem 'fevrier'
End With

End Sub

Public Sub Calcul_Salaire(objCombobox As Object)
With objCombobox
    If IsNumeric(.Value) Then
      If Not ComboBox1.Value = Empty Then
          resultat = Val(.Value)
          TextBox3.Value = Val(.Value) + Val(TextBox2.Value)
          Me.MultiPage1.Pages(Me.ComboBox1.Value).Controls(Me.ComboBox1.Value).Value = Val(.Value) + Val(TextBox2.Value)
      Else
            MsgBox 'Vous n'avez pas fait de choix pour le mois'
            .Value = Empty
      End If
  End If

End With

End Sub

Cliquez pour agrandir...

Ce fichier Zip contient un ou plusieurs fichier Module. Voici la procédure d'utilisation:
Premièrement, dé-zipper le fichier et extraire le ou les fichiers Module sur votre Disque dur.
Deuxièmement, dans Excel(chiffrier) taper les touches Alt+F11 pour ouvrir la fenêtre du Visual Basic Editor
Troisièmement, sélectionner le bon VBAProject dans la fenêtre de l'explorateur de projet.
Quatrièmement, du click droit de la souris, sélectionné l'option: Importer un fichier...
Cinquièmement, choisir un par un le ou les fichiers a l'endroit ou vous les avez extrait.
Finalement, vous pouvez supprimer les anciens Module(click droit de la souris), mais
assurer vous avant que le ou les nouveaux fonctionne bien.

Cliquez pour agrandir...

' Le fais de faire le calcul automatique, ça créer une intervention en moins pour l'utilisateur. Le moins que l'utilisateur
' à Intervenir, plus il est heureux.

' Cette partie-ci, tu l'as comprise, elle sert au calcul. Ce que je fais, j'envois à la routine
' Calcul_Salaire l 'objet qui subit un changement. Le fait de faire appel a une routine
' externe, permet de ne pas faire une dupplication de code pour chacun des textbox.
Private Sub TextBox1_Change()
Call Calcul_Salaire(TextBox1)
End Sub

Private Sub TextBox2_Change()
Call Calcul_Salaire(TextBox2)
End Sub

' Cette routine permet de préparer ta forme avant qu'elle n'apparaisse à l'écran.
' Donc ce cas-ci, on prépare la liste des énoncés qui feront partie du ComboBox1
Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem 'janvier'
    .AddItem 'fevrier'
End With

End Sub

' Cette procédure est la procédure du calcul automatique des textbox. Mais aussi sert à inscrire au fur et a mesure
' le résultat dans la page nommée du même nom du choix du mois que l'utilisateur a fait. Ce choix doit être fait avant
' toute chose.

' Ici dans cette procédure, je déclare quel type de varialble doit être passé en paramètre par sont appel.
' Dans ce cas-ci, c'est un objet et cet objet est le textboxX avec tout sont bagage de propriété et méthode
Public Sub Calcul_Salaire(objCombobox As Object)
With objCombobox
  ' Ici, je m'assure avec la commande IsNumeric que la valeur inscrite par l'utilisateur est bien de type numerique
  ' C'est peut être a travailler, parce que si le nombre comporte des unités, la virgule ou le point pourrait être tolléré
    If IsNumeric(.Value) Then
    ' Ici je m'assure que le choix du mois à été fait. Donc si le combobox1 n'est pas vide on continue
      If Not ComboBox1.Value = Empty Then
        ' J'ai gardé ta variable ici, mais elle ne me ser pas
          resultat = Val(.Value)
        ' J'inscris directement le résultat des 2 textbox dans le troisième
          TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
        ' Ici J'inscris directement le résultat du textbox3 dans la page qui porte EXACTEMENT le même nom du choix
        ' du mois de l'utilisateur du combox1
          Me.MultiPage1.Pages(Me.ComboBox1.Value).Controls(Me.ComboBox1.Value).Value = Val(Me.TextBox3.Value)
      Else
            MsgBox 'Vous n'avez pas fait de choix pour le mois'
            .Value = Empty
      End If
  End If

End With

End Sub

Cliquez pour agrandir...