Discussion :

[lamyae_lamyae]

bonjour
s'il vous plait j'ai un problème d'exécution de la boucle while (do while , while , do untile ...) . le problème c'est que la boucle ne s'exécute pas il reste en mode running , prenant l'exemple suivant :

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
Sub hhh()
 
    Dim i As Long
    Dim sum As Long
    Dim nb As Double
    Sheets("EQ DAV D PSG J1 DINA (8P) (2)").Activate
    sum = 0
    nb = Cells(8, 7).Value
For i = 0 To 53
 
   Do While sum < nb
             Cells(21 + i, 4).Value = Cells(21 + i, 3).Value
            sum = sum + Cells(21 + i, 3).Value
 
Loop
 
Next i
 
End Sub

[Pierre Fauconnier]

Salut.

Ta boucle fonctionne, pour autant bien sûr qu'en cells(8, 7) (G8), tu aies une valeur >0, sinon la condition sum < nb n'est jamais remplie et tu ne rentres pas dans la boucle. Au passge, sum = 0 n'est pas nécessaire car sa déclaration en As Long l'initialise à 0.

Il n'est pas nécessaire d'activer une feuille pour travailler avec ses cellules, et il est vivement conseillé de préfixer les cellules de la feuille qui les contient. J'ai adapté ton code en fonction de cela et j'en ai profité pour l'indenter de façon correcte.

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
Sub hhh()
  Dim i As Long
  Dim sum As Long
  Dim nb As Double
  Dim sh As Worksheet
 
  Set sh = Sheets("EQ DAV D PSG J1 DINA (8P) (2)")
  nb = sh.Cells(8, 7).Value
  For i = 0 To 53
    Do While sum < nb
      sh.Cells(21 + i, 4).Value = sh.Cells(21 + i, 3).Value
      sum = sum + sh.Cells(21 + i, 3).Value
    Loop
  Next i
End Sub

[lamyae_lamyae]

si vous voyer j'ai le même problème malgré que j'ai utiliser votre programme sinon merci beaucoup.

[Pierre Fauconnier]

Salut. Tu devrais la faire fonctionner en pas à pas pour voir évoluer les valeurs locales. Pou rcela, affiche les valeurs locales via le menu Affichage puis, après avoir cliqué dans la procédure, presse F8. Tu verras alors une ligne jaune sur la première ligne de la proc, et chaque F8 te fera avancer dans la procédure. Tu pourras alors, à chaque F8, vérifier les valeurs des variables locales pour voir si le compteur s'incrémente et si Sum augmente avec les nouvelles valeurs qu'on y ajoute.

[lamyae_lamyae]

désole mais sa change rien il reste a 0

[lamyae_lamyae]

Bon j'ai essayer d'utiliser la boucle if il fonctionne mais il arrête au dernier valeur qui ne vérifié pas a la condition .

[thekat]

bonjour à tous,

sum conditionne "Do While sum < nb"

si sum ne grandit pas nb toujours supérieur à sum et çà boucle à l'infini

l'idée est de contrôler le type de valeur renvoyé par sh.Cells(21 + i, 3).Value en le forçant en décimal CDec, double CDbl ou autre type numérique.

sum = sum + CDec(sh.Cells(21 + i, 3).Value)

et sh.Cells(21 + i, 3).Value renvoie t il autre chose que 0 ?

[Pierre Fauconnier]

Salut TheKat

si une valeur n'est pas numérique, le code plantera, donc pour moi, CDbl est inutile. Ce qui pourrait ne pas augmenter sum, c'est que sh.Cells(21 + i, 3).Value soit égal à 0...

Par contre, je voudrais bien savoir ce que lamyae_lamyae essaie de réaliser, car je pose la question de la double boucle avec Do while qui boucle tout le temps sur le même i...


lamyae_lamyae, si tu nous disais ce que tu souhaites réaliser, en nous montrant une copie de tes données?