Fonction if et conditions

Bonjour,

Je suis bloqué sur un sujet car je voudrais simplement implementer un chiffre dans une case avec une condition. Tant que une certaines case de mon excel est égale à zéro j'augmente de +1 une case et lorsque la case n'est plus égale à zéro je quitte mon calcul.

C'est la Sub vissirie_mot() dans mon excel.

Sauf que je n'arrive pas du tout à faire fonctionner ma formule. SI quelqu 'un a une idée :)

Bonjour,

Dans votre code, la ligne suivante:

    Vis_Long_Calc = Sheets("01 Engine-Engine support").Cells(13, 10)

qui peut s'écrire aussi :

Vis_Long_Calc = Sheets("01 Engine-Engine support").range("J13")

or, la cellule J13 est vide, l'erreur ne serait-elle pas là ?

Cdlt

Edit ,

Désolé, je viens de m'apercevoir que vous l'aviez passé en résolu.