Boucle qui ne va pas au bout

Bonjour,

Ma macro suivante :

Sub Calc1()

'

' Calc1 Macro

' Macro enregistrée le 03/03/2014 par Pierre

'

' Touche de raccourci du clavier: Ctrl+q

'

Dim Nbit As Integer

Dim Vartest As Integer

Nbit = 0

While Nbit <= 1000

Calculate

Vartest = Range("AL629").Value

Range("AA626").Value = Nbit

If Vartest > 0 Then

Exit Sub

End If

Nbit = Nbit + 1

Wend

End Sub

s'arrête de façon aléatoire (78 ou 125...)

Merci d'avance de me dire ce qui cloche.

Bonjour,

Première interprétation :

Si tu sors de la boucle avant d'atteindre Nbit > 1000, c'est que Vartest > 0.

Il te reste à trouver pourquoi la valeur de AL629 est supérieure à zéro.

A+

Bonjour,

Merci pour ta réponse.

Justement, la cellule AL629 est toujours à zéro quand la macro s'arrête (j'ai oublié de le préciser).

Avec un fichier exemple ce serait plus facile à appréhender

A+

Rebonjour,

Merci mais j'ai programmé un autre test qui, lui, fonctionne. Je chercherai plus tard à élucider ce qui n'allait pas.

En tout cas, merci pour ta rapidité.