End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
End Sub Sub Attente(milisecond As Integer) Dim Start, PauseTime PauseTime = milisecond / 7200 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Sub -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Bonsoir,
Essaye d'ajouter ceci dans le module de ta feuille.
Private Sub Worksheet_Deactivate()
End
End Sub
Cordialement,
Manu/
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de news:
CBEFA127-1EC1-4574-82FB-B7E993007F94@microsoft.com...
si quelqu' un peut m aider pour arreter ce code des que la feuille n est
plus
active
car le code continue en fond....
End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
End Sub Sub Attente(milisecond As Integer) Dim Start, PauseTime PauseTime = milisecond / 7200 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Sub -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Cyr13
si simple et pourtant cela fonctionne merci !! -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Bonsoir,
Essaye d'ajouter ceci dans le module de ta feuille.
Private Sub Worksheet_Deactivate() End End Sub
Cordialement, Manu/
"Cyr13" a écrit dans le message de news:
si quelqu' un peut m aider pour arreter ce code des que la feuille n est plus active car le code continue en fond....
End Sub Sub Attente(milisecond As Integer) Dim Start, PauseTime PauseTime = milisecond / 7200 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Sub -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
si simple et pourtant cela fonctionne merci !!
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
Bonsoir,
Essaye d'ajouter ceci dans le module de ta feuille.
Private Sub Worksheet_Deactivate()
End
End Sub
Cordialement,
Manu/
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de news:
CBEFA127-1EC1-4574-82FB-B7E993007F94@microsoft.com...
si quelqu' un peut m aider pour arreter ce code des que la feuille n est
plus
active
car le code continue en fond....
End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
End Sub Sub Attente(milisecond As Integer) Dim Start, PauseTime PauseTime = milisecond / 7200 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Sub -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..