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

Olivier1978 · 18 Mai 2024

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 · 18 Mai 2024

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

VB:

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)...

sylvanu · 18 Mai 2024

Bonjour Olivier,
Un essai en PJ avec :

VB:

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 · 18 Mai 2024

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

VB:

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 · 18 Mai 2024

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

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

Olivier1978

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Olivier1978

XLDnaute Nouveau

Discussions similaires