Timer

[Fred]

Bonjour à toutes et à tous,

Voici mon problème. J'ai une macro qui fait un lorsqu'une celulle est remplie et elle se remet à zéro aussitôt après le calcul mais cela bug de temps à autre car cela doit se calculer trop vite.

Je voudrais mettre une sorte de timer dans la macro dont voici l'exemple :

Sub RESULTAT()
'macro de RESULTAT
'sélection de la feuille
'sheet("STATS").select
If Range("A1") = 1 Then
Range("A38") = 1

La je voudrais que la macro passe à l'opération Range ("A38") = 0 qu'au bout de 2 secondes.

Range("A38") = 0
End If
End Sub


Merci d'avance.

 

[G'Claire]

Fred, le forum,

Je te propose ce code, mais j'espère que c'est le bon,

Application.Wait Now + TimeValue("00:00:02")

Bonne soirée, G'Claire

 

[Fred]

Merci c'est exactement cela mais je dois avoir un autre bug ailleurs car cela bloque tout de même sous certaines conditions.

Tant pis je vais chercher, mais j'ai mis tout de même ta formule.