Cette page vous apprend à créer un simple calculateur de prêt dans Excel VBA. La feuille de calcul contient les contrôles ActiveX suivants : deux barres de défilement et deux boutons d'option.
Remarque : les instructions ci-dessous ne vous apprennent pas comment formater la feuille de calcul. Nous supposons que vous savez comment changer les types de police, insérer des lignes et des colonnes, ajouter des bordures, changer les couleurs d'arrière-plan, etc.
Exécutez les étapes suivantes pour créer le calculateur de prêt :
1. Ajoutez les deux contrôles de la barre de défilement. Cliquez sur Insérer dans l'onglet Développeur, puis sur Barre de défilement dans la section Contrôles ActiveX.
2. Ajoutez les deux boutons d'option. Cliquez sur Insérer dans l'onglet Développeur, puis sur le bouton Option dans la section Contrôles ActiveX.
Modifiez les propriétés suivantes des contrôles de la barre de défilement (assurez-vous que le mode Création est sélectionné).
3. Cliquez avec le bouton droit de la souris sur le premier contrôle de la barre de défilement, puis cliquez sur Propriétés. Réglez Min sur 0, Max sur 20, SmallChange sur 0 et LargeChange sur 2.
4. Cliquez avec le bouton droit de la souris sur le deuxième contrôle de la barre de défilement, puis cliquez sur Propriétés. Définissez Min sur 5, Max sur 30, SmallChange sur 1, LargeChange sur 5 et LinkedCell sur F8.
Explication : lorsque vous cliquez sur la flèche, la valeur de l'ascenseur monte ou descend de SmallChange. Lorsque vous cliquez entre le curseur et la flèche, la valeur de la barre de défilement monte ou descend de LargeChange.
Créez un événement de modification de feuille de calcul. Le code ajouté à l'événement de changement de feuille de calcul sera exécuté par Excel VBA lorsque vous modifiez une cellule sur une feuille de calcul.
5. Ouvrez l'éditeur Visual Basic.
6. Double-cliquez sur Sheet1 (Sheet1) dans l'explorateur de projet.
7. Choisissez Feuille de travail dans la liste déroulante de gauche et choisissez Modifier dans la liste déroulante de droite.
8. L'événement de changement de feuille de calcul écoute toutes les modifications sur Sheet1. Nous voulons seulement qu'Excel VBA exécute le sous-calculer si quelque chose change dans la cellule D4. Pour ce faire, ajoutez la ligne de code suivante à l'événement de changement de feuille de calcul (plus d'informations sur le sous-calcul de calcul plus tard).
Si Target.Address = "$D$4" Then Application.Run "Calculate"
9. Obtenez le bon pourcentage dans la cellule F6 (changez le format de la cellule F6 en pourcentage). Cliquez avec le bouton droit de la souris sur le premier contrôle de la barre de défilement, puis cliquez sur Afficher le code. Ajoutez les lignes de code suivantes :
Private Sub ScrollBar1_Change()
Plage("F6").Valeur = ScrollBar1.Value / 100
Application.Exécutez "Calculer"
Fin du sous-marin
10. Cliquez avec le bouton droit de la souris sur le deuxième contrôle de la barre de défilement, puis cliquez sur Afficher le code. Ajoutez la ligne de code suivante :
Private Sub ScrollBar2_Change()
Application.Exécutez "Calculer"
Fin du sous-marin
11. Cliquez avec le bouton droit de la souris sur le premier contrôle de bouton d'option, puis cliquez sur Afficher le code. Ajoutez la ligne de code suivante :
Sous-option privée Button1_Click()
Si OptionButton1.Value = True Then Range("C12").Value = "Paiement mensuel"
Application.Exécutez "Calculer"
Fin du sous-marin
12. Cliquez avec le bouton droit de la souris sur le deuxième contrôle de bouton d'option, puis cliquez sur Afficher le code. Ajoutez la ligne de code suivante :
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("C12").Value = "Paiement annuel"
Application.Exécutez "Calculer"
Fin du sous-marin
13. Il est temps de créer le sous-marin. Vous pouvez consulter notre chapitre Fonctions et sous-titres pour en savoir plus sur les sous-titres. Si vous êtes pressé, placez simplement le sous-nommé Calculer dans un module (Dans Visual Basic Editor, cliquez sur Insérer, Module).
Sous-calculer()
Dim Loan As Long, rate As Double, nper As Integer
prêt = Plage("D4").Valeur
taux = Plage("F6").Valeur
nper = Plage("F8").Valeur
Si Sheet1.OptionButton1.Value = True Alors
taux = taux / 12
nper = nper * 12
Fin si
Range("D12").Valeur = -1 * WorksheetFunction.Pmt(taux, nper, prêt)
Fin du sous-marin
Explication : le sous-réseau obtient les bons paramètres pour la fonction de feuille de calcul Pmt. La fonction PMT d'Excel calcule les paiements d'un prêt sur la base de paiements constants et d'un taux d'intérêt constant. Si vous effectuez des paiements mensuels (Sheet1.OptionButton1.Value = True), Excel VBA utilise rate/12 pour rate et nper *12 pour nper (nombre total de paiements). Le résultat est un nombre négatif, car les paiements sont considérés comme un débit. Multiplier le résultat par -1 donne un résultat positif.
