Inserer un delais plus petit que 1 sec

Bonjour!

Y a t-il une autre syntaxe qui permettrait d'avoir des delais plus petit que 1 seconde. Il faudrais quelque chose comme 100 msec.

Application.Wait Now + TimeValue("00:00:01") 'delais 1 secondes

Capucin

Bonsoir

A tester

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
Dim I As Integer

  For I = 1 To 20
    Range("A1").Interior.ColorIndex = 6
    Sleep 100
    Range("A1").Interior.ColorIndex = 2
    Sleep 100
  Next I
End Sub

Salut Banzai, c'est toujours un plaisir pour moi que tu repondre!

Ca fonctionne tres bien!

Si je comprend bien, tu as ajouter une fonction d'une librairie? Il me suffit d'ajouter la ligne "Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) dans un module et je pourrai utiliser Sleep?

 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Sub test()
    Dim I As Integer

      For I = 1 To 20
        Range("A1").Interior.ColorIndex = 6
        Sleep 100
        Range("A1").Interior.ColorIndex = 2
        Sleep 100
      Next I
    End Sub

Bonjour

CAPUCIN a écrit :

Si je comprend bien

C'est exact (c'est pour cela que cela commence par Public)

C'est une fonction (et il y en a beaucoup d'autre) qui pallie un peu les manques du VBA

Cherches fonctions API avec ton ami

ok Banzai! je vais faire une recherche "API".

Merci pour ton aide!