re bonjours a tous
qu'elqun aurait la syntaxe pour argumenter l'apel d'une sub avec application .ontime
je tourne je vire j'arrive a rien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
'un bouton dans le sheetsPrivate Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'On Error Resume Next
Application.OnTime Now + 0.00001, "'testbordure """ & CommandButton1.Name & "'", schedule:=True
End Sub
 
Sub testbordure(n)
Cells(1, 1) = n
Application.OnTime Now + 0.0001, "'testbordure """ & n & "'", schedule:=False
End Sub