Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
![](data:image/svg+xml;charset=utf-8,<svg height="300px" width="375px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
If Cb1.Value = "1" Then
Annuite
Else
Amort
End If😂😂😂😂😂😂 j'en avais marre et j'ai commencé à foutre le bordel
Private Sub Tb6_Change()
Dim Taux As Double
Dim Paiement As Integer
Dim Montant As Double
Dim Duree As Integer
Dim Annuite As Integer
Dim Amort As Double
Taux = Tb2.Value
Paiement = Tb4.Value
Montant = Tb1.Value
Duree = Tb3.Value
If Cb1.Value = "1" Then
Amort = 0
Annuite = Pmt((Taux / Paiement), Paiement, Montant)
Else
Annuite = 0
Amort = Montant / Duree
End If
End Subquand tu exécutes, tu n'as pas de message d'erreur ?
Merci Pour ton aide bruno, mais comment faire pour que le calcul apparaisse automatiquement dans la txtbox annuité ?
![](data:image/svg+xml;charset=utf-8,<svg height="520px" width="661px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
Private Sub Tb6_Change()
Dim Taux As Double
Dim Paiement As Integer
Dim Montant As Double
Dim Duree As Integer
Dim Annuite As Integer ' Cint(le résultat) = qui doit être en Integer dans "Tb6.Value"
' Cint() = Les fonction de conversion de type de variables
' Dim Annuite As Integer = Les types de variables
Dim Amort As Double
Taux = Tb2.Value
Paiement = Tb4.Value
Montant = Tb1.Value
Duree = Tb3.Value
If Cb1.Value = "1" Then
Amort = 0
Tb6.Value = Cint(Pmt((Taux / Paiement), Paiement, Montant)) ' ....... Annuite c'est Tb6.Value
Else
Tb6.Value = Cint(0) ' .............................................. Annuite c'est Tb6.Value
Amort = Montant / Duree
End If
End SubWe use cookies and similar technologies for the following purposes:
Est ce que vous acceptez les cookies et ces technologies?
We use cookies and similar technologies for the following purposes:
Est ce que vous acceptez les cookies et ces technologies?