Application.OnTime qui bloque avec du code validé sur d'autres topic

**tmlpqsdpmdlc** · 09/04/2015, 10h47

Bonjour,

Je voudrai revenir sur le clignotement des cellules avec application.Ontime

je tombe toujours sur le même message d'erreur:

"impossible d’exécuter la macro ...... il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"

J'ai fait un mini test pour mettre en évidence que c'est bien application.OnTime

que dois je faire pour que ça marche ?

**Marc-L** · 09/04/2015, 13h11

Bonjour,

soit supprimer la ligne soit la corriger (erreur dans un paramètre vu le message) …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

**tmlpqsdpmdlc** · 09/04/2015, 13h32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
    Dim uneSec As Date
 
    uneSec = Now + TimeValue("00:00:01")
    Application.OnTime uneSec, "message"
 
End Sub
 
Public Function message()
 
    MsgBox 'ca marche'
 
End Function

Je ne sais pas ce qui bloque, quelle ligne supprimer ou quel paramètre changer