VBA problème avec une boucle do until

Bonjour, ma deuxième boucle ne fonctionne pas et je ne comprend pas pourquoi voici mon code ( j'ai mis en rouge la section qui ne fonctionne pas(selon moi)):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim r As Integer Dim c As Integer Dim rr As Integer Dim cc As Integer c = 3 r = 15 rr = 7 cc = 4 Sheets("histo").Select Do Until Sheets("histo").Cells(15, c) = "" Do Until Cells(r + 1095, c) = "" Sheets("rendement").Cells(rr, cc) = (Sheets("histo").Cells(r + 1095, c) - Sheets("histo").Cells(r, c)) / Sheets("histo").Cells(r, c) rr = rr + 1 r = r + 1 Loop cc = cc + 1 c = c + 1 Loop End Sub

---

Salut.

Ca veut dire quoi "ne fonctionne pas"? De plus, il me semble que ce que tu as mis en rouge se trouve dans la première boucle et non dans la seconde...

Cela dit, ta première boucle ne sera exécutée que si Sheets("histo").Cells(15, 3) n'est pas vide.

La meilleure façon de déboguer une boucle ni ne fonctionne pas bien est de passer en pas à pas sur la boucle et de vérifier les variables faisant partie de la condition de sortie.

Alors comment puis-je dire en VBA fait la colonne 3 (toutes les lignes) ensuite change de colonne et recommence.

P.S: en se moment elle ne fait que la colonne 3

Et en modifiant la ligne 10 du code que tu as donné comme suit:

Code:

---

Do Until Sheets("histo").Cells(r+1095, c) = ""

---

ça fonctionne mieux?