Fonction Problème
Sonnedonc
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis nouveau dans VBA.
J'ai tapé ce code ci :
------------
Function DRA(Investissement, Flux As Range, Taux)
Dim NbEcheance As Integer
NbEcheance = Flux.Rows.Count
x = -Investissement
For i = 1 To NbEcheance
x = x + (Flux.Cells(i, 1) / ((1 + Taux) ^ i))
If x > 0 Then
GoTo FinDeRecherche
End If
If x = 0 Then
GoTo FinDeRecherche2
End If
Next i
FinDeRecherche: DRA = i - 1 & " ans et"
FinDeRecherche2: DRA = i & " ans"
End Function
-------
Mais quand x>0, il m’envoie directement dans la FinDeRecherche2
Alors que selon ma logique quand x>0 il doit m'amener vers le résultat FinDeRecherche: DRA = i - 1 & " ans et"
Et quand x= 0 il doit m'amener vers le résultat FinDeRecherche2: DRA = i & " ans"
Merci d'avance,
Je suis nouveau dans VBA.
J'ai tapé ce code ci :
------------
Function DRA(Investissement, Flux As Range, Taux)
Dim NbEcheance As Integer
NbEcheance = Flux.Rows.Count
x = -Investissement
For i = 1 To NbEcheance
x = x + (Flux.Cells(i, 1) / ((1 + Taux) ^ i))
If x > 0 Then
GoTo FinDeRecherche
End If
If x = 0 Then
GoTo FinDeRecherche2
End If
Next i
FinDeRecherche: DRA = i - 1 & " ans et"
FinDeRecherche2: DRA = i & " ans"
End Function
-------
Mais quand x>0, il m’envoie directement dans la FinDeRecherche2
Alors que selon ma logique quand x>0 il doit m'amener vers le résultat FinDeRecherche: DRA = i - 1 & " ans et"
Et quand x= 0 il doit m'amener vers le résultat FinDeRecherche2: DRA = i & " ans"
Merci d'avance,
A voir également:
- Fonction Problème
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
