calculation d'une sheet en boucle jusqu'a ce qu'une cellule ait une certaine valeure

[cbib46]

Bonjour,

Des cellules A1 a A9, il y a une formule qui donne une valeur aleatoire (a chacune des cellules, de 1 a 9 sans repetition).
J'ai dans la cellule A10, une autre formule qui utlise les resultats des ces cellules A1 a A9.

Au lieu de faire F9 comme un idiot jusqu'a ce que la cellule A10 = 100, je souhaite creer une boucle qui dise:
tant que la cellule A10 est differente de 100, continue de faire F9 (calculation de la sheet en entier).

j'ai beau chercher je ne trouve pas, si quelqu'un a une idee...

merci d'avance

 

[pierrejean]

Re : calculation d'une sheet en boucle jusqu'a ce qu'une cellule ait une certaine val

bonjour cbib

A tester:

Sub calc()
While Range("A10") <> 100
 ActiveSheet.Calculate
Wend
End Sub

 

[cbib46]

Re : calculation d'une sheet en boucle jusqu'a ce qu'une cellule ait une certaine val

Merci Pierrejean,

c'est la bonne reponse !