Macro (test après exécution)

Bonjour à tous,

Je lance une macro toto() par Développeur/macro/exécuter (il n'y a que macro() qui apparaît, mais elle se compose de 3 macros: toto() que j'exécute ,titi() séparée par un trait horizontal et tutu() séparée aussi)

Cette macro une fois exécutée et terminée renvoie une valeur en Q5.

Je voudrais que, si Q5 est inférieur à 80, alors la macro toto() soit relancée automatiquement jusqu'à obtenir en Q5 80 ou plus.

une idée?

a+

Bonjour

Essaie d'ajouter ces instructions :

Sub toto()

Retour:

    'ta macro

If Range("Q5") < 80 Then GoTo Retour
End Sub

Bye !

Bonjour

J'avais fait cette solution mais je préfère ne pas ajouter de ligne dans la macro.

Est-il possible de créer une macro de lancement (test()par exemple) de la macro qui ferait le test en fin d'exécution et,si besoin en cas d'infériorité du résultat, rappellerait la macro?

merci

Bonjour

Tu as ça mais je n'en vois pas trop l'intérêt :

Sub toto()

    'ta macro

    Call test
End Sub

Sub test()
    If Range("Q5") < 80 Then Call toto
End Sub

Bye !

merci

j'avais commencé avec le fonction Call effectivement ça me convient.

a+