Discussion :

[mathilde13870]

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 !

[vanhoa]

Bonjour,

Je pense que tu as voulu faire une boucle du type For non? Car tu utilise une variable i qui n'est pas definie. Du coup, ton If ne marche pas et tu retombes sur K0=Ki. Ou peut etre que tu as oublie de copier une partie du code?

vanhoa

[SfJ5Rpw8]

Bonjour,


ton code n'effectue aucune modification sur ton classeur ....

d'ou sort ta variable i ? je ne vois aucune déclaration, aucune affectation ...

en supposant que i = 0 ... ton Ki renvoi TOUJOURS le contenu de la cellule C5 de la feuille active ...



En passant , n'oublie pas de rajouter en haut de toutes tes pages de codes la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

pour détecter plus facilement des problèmes de déclaration de variables...

[mathilde13870]

Effectivement, il manque un bout

A force de passer du temps sur le code on a l'impression que c'est aussi évident pour les autres que pour soi, désolé ^^

Il y a bien une boucle For qui englobe le tout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 0 To Nb_Mois - 2
 
'boucle do
 
Next i

Elle fonctionne bien par contre ça j'en suis sure

[SfJ5Rpw8]

et donc il y as quoi dans ta cellule C5 ? et les colonnes sa droite..

[mathilde13870]

Il n'y a rien dans C5, au contraire je veux copier la valeur dedans, j'ai inversé ce bout la manifestement...

Et du coup ça a l'air de fonctionner...

Désolé de vous avoir fait perdre votre temps, j'étais persuadée d'un problème dans la boucle et je n'ai pas du tout pensé à une erreur comme ça

Merci d'avoir pointer ce détail

[mathilde13870]

Re-bonjour!

Je reviens vers vous car j'ai de nouveau un problème sur ma boucle :

Lorsque je lance l'exéctution du code, excel plante quand il atteint i=1, en gros quand il exécute la partie Else de la boucle if.

Je ne comprends pas trop d'ou ça vient, car losqu'il n'y avait pas la boucle if cela fonctionnait bien... Est ce que j'ai une erreur dans la syntax ? ou quelque chose comme ça ?

Merci beaucoup pour votre aide, c'est pour le boulot et je ne connais pas très bien vba donc je craque un peu

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
For i = 0 To Nb_Mois - 2
 
 
  Dim CumulC As Double
  Dim K0 As Double
  Dim Ki As Double
 
  If i = 0 Then
 
  K0 = Range("B5")
  CumulC = 55
 
   Do
 
   CumulC = CumulC + 2
 
 
    If Range("B11") < 390 Then
        Ki = K0 - 0.116 * (1 / CumulC) * 2
    Else
        Ki = K0 - 1.5 * 10 ^ -4 * 2
    End If
 
        K0 = Ki
 
  Loop Until (Range("B17") - CumulC >= -2) And (Range("B17") - CumulC <= 2)
 
Range("C5") = Ki
Range("C5").NumberFormat = "0.00"
 
  Else
 
  K0 = Range("C5").Offset(0, i)
  CumulC = Range("C17").Offset(0, i)
 
 
        '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 * 2
    End If
 
        K0 = Ki
 
  Loop Until (Range("C17").Offset(0, i).Value - CumulC >= -2) And (Range("C17").Offset(0, i).Value - CumulC <= 2)
 
Range("D5").Offset(0, i) = Ki
Range("D5").Offset(0, i).NumberFormat = "0.00"
 
End If

[SfJ5Rpw8]

Je n'ai pas essayé de comprendre ce que fait ton code... mais je vois une différence pour le cas ou i = 0 tu Initialise ta variable CumulC à 55 pour les autres cas tu n'itialise pas cette variable et donc CumulC à la valeur obtenu à la fin de ta boucle précédente .... reste à savoir si ensuite tes incrémentation successives (+2) permettent d'obtenir les conditions de sortie de ta boucle while ...

[mathilde13870]

Bon et bien ça a fini par fonctionner mais je en sais pas trop pourquoi.
J'a modifié l'incrémentation suite à ta remarque, ça a fonctionné donc je pensais que c'était ça, mais finalement ça marche aussi avec + 2
Bref mystère,

Merci !

Bonne soirée