exécution de la boucle while

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:

---

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

---

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:

---

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

---

Pièce jointe 596834Pièce jointe 596834

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

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.

Pièce jointe 596846
désole mais sa change rien il reste a 0

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 .

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 ?

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?