Bonjour !

J'ai un petit problème avec la boucle do que j'essaie de coder :

Je veux incrémenter ma boucle en remplaçant à chaque nouvelle incrémentation le K0 par le Ki trouvé à l'incrémentation précédente, seulement ça en fonctionne pas, à chaque fois cela me renvoie dans la cellule un Ki égal à 0.9 soit la valeur initiale de K0.
Je ne vois pas le problème dans mon code, j'aurais besoin d'un petit coup de pouce !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim CumulC As Double
  Dim K0 As Double
  Dim Ki As Double
 
  K0 = 0.9
  CumulC = 55
 
        'calcul de K
 Do
 
   CumulC = CumulC + 2
 
 
    If Range("C11").Offset(0, i).Value < 390 Then
        Ki = K0 - 0.116 * (1 / CumulC) * 2
    Else
        Ki = K0 - 1.5 * 10 ^ -4
    End If
 
        K0=Ki  
 
  Loop Until (Range("B17").Offset(0, i).Value - CumulC >= -2) And (Range("B17").Offset(0, i).Value - CumulC <= 2)
 
Ki = Range("C5").Offset(0, i)
Merci beaucoup

Bonne journée à tous !