XL 2010 Boucles - Délai de récupération - Finance

[Olivier1978]

Bonjour David et bonjour à tous,

Je travaille sur un fichier financier qui concerne le délai de récupération d'un investissement.

J'aurai besoin de faire deux boucles. J'ai essayé avec la fonction "si", la fonction "min" mais cela ne répond pas à mon besoin.
Pour "vous" cela va vous faire rire, mais moi je n'y arrive pas.

Je vous joins le fichier, j'ai tout expliqué dedans.

Le code que vous me proposerez, me permettra d'être "meilleur" sur les "boucles".

Je vous remercie pour votre aide.

Bon week-end à tous,

Olivier

 

[sylvanu]

Bonjour Olivier,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C3:C5,C14:G15")) Is Nothing Then
         Dim C%, InvestInit, PlusProche
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         InvestInit = [C5]: NbJours = [C3]
         For C = 3 To 7
            If Cells(15, C) >= InvestInit Then
                [L16] = Cells(14, C) / NbJours
                Exit For
            End If
         Next C
         PlusProche = 0
         For C = 3 To 7
            If Cells(15, C) <= InvestInit Then
                If InvestInit - Cells(15, C) > PlusProche Then PlusProche = Cells(15, C)
            End If
         Next C
         [L17] = InvestInit - PlusProche
    End If
Fin:
Application.EnableEvents = True
End Sub

 

[sylvanu]

Re,
"Just for the fun", avec une seule boucle :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C3:C5,C14:G15")) Is Nothing Then
         Dim C%, InvestInit, PlusProche, NbJours%, Trouvé%
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         InvestInit = [C5]: NbJours = [C3]: Trouvé = 0: PlusProche = 0
         For C = 3 To 7
            If Cells(15, C) >= InvestInit And Trouvé = 0 Then
                [L16] = Cells(14, C) / NbJours
                Trouvé = 1
            End If
            If Cells(15, C) <= InvestInit Then
                If InvestInit - Cells(15, C) > PlusProche Then PlusProche = Cells(15, C)
            End If
         Next C
         [L17] = InvestInit - PlusProche
    End If
Fin:
Application.EnableEvents = True
End Sub

 

[Olivier1978]

Bonsoir Sylvanu,

Écoute c'est parfait, un grand merci. Avec une seule boucle ... très fort.
Je vais essayer de comprendre ce que tu as fait avec le code.

Bonne soirée à toi,

Olivier