do Loop Until

bjr à tous,
j'ai developpé une macro dont le but est de répartir un nombre dans des cases selon les heures du travail
elle est comme suivant:

Code:

---

1 2 3 4

Do Range("m9").End(xlToRight)(1, 2).Value = Round(Range("m9").End(xlToRight)(1, 2).Offset(-3, 0).Value * Range("m9").Value) Loop Until Range("at9").Value >= Range("d9").Value Range("m9").End(xlToRight)(1, 1).Value = Round(Range("m9").End(xlToRight)(1, 1).Value - (Range("at9").Value - Range("d9").Value))

---

le problème c'est que : comment je peux faire pour que la repartition s'arrete si on atteint la cellule "AS9".

merci pour votre aide.

Salut,

perso, j'ai toujours préféré faire une syntaxe avec

Code:

---

1 2 3

Do Until condition 'code Loop

---

pour la simple facilité de lecture :aie:

tu peux très bien ajouter à ta condition de sortie l'adresse S9 avec par exemple

Code:

---

Range.Address = "$S$9"

---

merci jpcheck,
j'ai changé la ligne en ajoutant une condition comme tu as dis mais sans resultat:

Code:

---

Loop Until Range("at9").Value >= Range("d9").Value Or Range("at9").End(xlToLeft)(1, 1).Address = Range("as9").Address

---

euh, je ne comprends pas pourquoi tu testes

Code:

---

Range("at9").End(xlToLeft)(1, 1).Address = Range("as9").Address

---

ne serait-ce pas plutot "m9"