Code Problème

Résolu/Fermé
Sonnedonc Messages postés 5 Date d'inscription jeudi 14 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016 - Modifié par NHenry le 16/01/2016 à 19:01
Sonnedonc Messages postés 5 Date d'inscription jeudi 14 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016 - 16 janv. 2016 à 19:15
Bonjour,

Je suis nouveau dans l'utilisation de VBA

Mais le problème, c'est que le résultat correspond à 0
alors que je voudrais qu'il correspond au chiffre i suivit de "ans"
Auriez vous des solutions ?

Merci d'avance

----------------------------
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
Next i

b = " ans"
FinDeRecherche: DRA = i And b

End Function

----------------------------

1 réponse

NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 331
16 janv. 2016 à 19:02
Il faut concaténer, pas faire un ET logique ...
Valeur1 & Valeur2

Et remplaces ton Goto par un Exit for.
0
Sonnedonc Messages postés 5 Date d'inscription jeudi 14 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 19:15
Merci, Beaucoup, ça marche
0