Discussion :

[abouhossam]

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 :

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

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.

[Jean-Philippe André]

Salut,

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

Code :

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

1
2
3
Do Until condition 
'code
Loop

pour la simple facilité de lecture

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

Code :

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

Range.Address = "$S$9"

[abouhossam]

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

Code :

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

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

[Jean-Philippe André]

euh, je ne comprends pas pourquoi tu testes

Code :

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

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

ne serait-ce pas plutot "m9"