argument dans l'apel d'une sub avec application .ontime (syntaxe)

**patricktoulon** · 29/12/2017, 16h28

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

Invité · 29/12/2017, 16h43

Bonjour Patrick,
Pas testé https://www.developpez.net/forums/d4...e/#post2650019

**pijaku** · 29/12/2017, 16h47

Patrick,

Met ta Sub testbordure dans un module, pas dans le module de la feuille.

Code :

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

1
2
3
4
Private 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

**patricktoulon** · 29/12/2017, 16h54

bonjour Robert
non ca ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'On Error Resume Next
MacroParametree = "'testbordure """ & CommandButton1.Name & """'"
Application.OnTime Now + 0.000001, MacroParametree
End Sub
Sub testbordure(n)
Cells(1, 1) = n
'Application.OnTime Now + 0.00001, "'testbordure """ & n & """'", schedule:=False
End Sub