Microsoft 365 Incompatibilité de type '13' Excel VBA

[Dominique-evrard]

Bonjour les amis, j'ai voulu passer le temps en créant un formulaire qui me permettrait de calculer directement l'annuité d'un prêt au fur et à mesure qu'on remplis les champs prévu à cet effet mais lors de la déclaration de mes variables, il y a une erreur de type Incompatibilité de type '13' qui apparaît. j'ai besoin d'aide svp

 

[Compte Supprimé 979]

Bonjour Domnique,

Qu'as-tu essayé de faire avec ces lignes 🤔 🤪

    If Cb1.Value = "1" Then
    Annuite
    Else
    Amort
    End If

A+

 

[Dominique-evrard]

Bonjour Domnique,

Qu'as-tu essayé de faire avec ces lignes 🤔 🤪

    If Cb1.Value = "1" Then
    Annuite
    Else
    Amort
    End If

A+

😂😂😂😂😂😂 j'en avais marre et j'ai commencé à foutre le bordel

 

[Compte Supprimé 979]

Re,

Après ça peut être un truc du style

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 Sub

 

[Dominique-evrard]

Re,

Après ça peut être un truc du style

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 Sub

quand tu exécutes, tu n'as pas de message d'erreur ?

 

[Compte Supprimé 979]

Re,

Heu non 🤔
Voici les paramètres saisis

Et le fichier

A+

 

[Dominique-evrard]

Re,

Heu non 🤔
Voici les paramètres saisis
Regarde la pièce jointe 1149751
Et le fichier

A+

Merci Pour ton aide bruno, mais comment faire pour que le calcul apparaisse automatiquement dans la txtbox annuité ?
Et aussi si cela ne te dérange pas, peux-tu m'expliquer un peu les différents types ? (Integer, double, etc...)

 

[Staple1600]

Bonsoir le fil

@Dominique-evrard
Juste pour t'inciter à explorer le forum et ses dépendances 😉

[VBA]Types de Variables

Il existe différents types de variables 1 - Boolean Les variables de type Boolean ne peuvent avoir que 2 valeurs True et False 2 - Byte Les variables de type Byte peuvent avoir des valeurs comprises entre 0 et 255 3 - Integer (%) Les variables de type Integer peuvent avoir des valeurs...

excel-downloads.com

PS: Salutations en passant à BrunoM45

 

[laurent950]

Bonsoir le Forum,

peux-tu m'expliquer un peu les différents types ? (Integer, double, etc...)

Bienvenue chez Alcya Informatique

Vous trouverez des astuces, fonction méconnue essentiellement en bureautique et langage vba.

www.alcya.com

mais comment faire pour que le calcul apparaisse automatiquement dans la txtbox annuité ?

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 Sub

Les fonction de conversion de type :

Fonctions de conversion de types (VBA)

Référence de langage VBA pour Office

docs.microsoft.com

 

[Staple1600]

Bonsoir Laurent950

Pourquoi redire ce que disait déjà le message#8 ? 🙄
(qui en plus n'obligeait pas de sortir du forum d'XLD 😉, au risque de prendre froid)