Discussion :

[Kestion100]

Bonjour,
est-il possible de suspendre un code vba avec la procédure

Code :

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

Application.EnableEvents = False (...) Application.EnableEvents = True

durant un certain temps, sans passer par

Code :

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

Application.Wait

?

Merci beaucoup

[joe.levrai]

Bonjour,

ça n'arrête pas une procédure, ça désactive uniquement le déclenchement des evènements
exemple : on l'utilise quand on supprime une feuille pour ne pas avoir le pop up de confirmation

pourquoi tu ne veux pas utiliser .wait ?

tu peux te rabattre sur l'API Sleep

à mettre en début d'un module standard

Code :

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

1
2
 
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

et ensuite on l'utilise comme ça

Code :

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

1
2
3
4
5
6
7
 
' du code
 
' la macro va s'arrêter 1000 milisecondes = 1 seconde
Sleep 1000
 
' du code

[Kestion100]

En fait, j'ai un classeur qui me décompte le temps qui prend pas mal de ressources et peut me poser des difficultés quand je fais tourner d'autres classeurs, je cherchais donc à suspendre "l'horloge" excel que je me suis faite et ce pour un temps donner le temps de faire autre chose mais la seule solution trouvée est le wait qui me fige complètement excel. Je travail sous Office Standard 2013 je crois et j'ai tenté d'ouvrir des workbooks différents sans succès et mon "horloge" tourne sous ThisWorkbook pour se délencher à l'ouverture du fichier excel.

Je ne sais pas si c'est vraiment plus clair.....

[joe.levrai]

et stopper la macro pour la relancer après ??

[Kestion100]

C'est ce que je voulais faire avec mon

Code :

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

Application.EnableEvents = False

puisque ma macro s'applique avec un

Code :

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

Private Sub Workbook_Open()

(Code:

Code :

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

1
2
3
4
5
Sub majHeure()
   ThisWorkbook.Sheets("feuil1").[A1] = Now
   temps = Now + TimeValue("00:00:1")
   Application.OnTime temps, "majHeure"
 End Sub

)

Sinon je suis preneur, surtout si on peut automatiser le stop / restart

Je vais aussi essayer le "Sleep"

[joe.levrai]

on peut bricoler un systeme D en attendant une réponse plus jolie

1) on arrête la macro si une cellule n'est pas vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub majHeure()
 
    ThisWorkbook.Sheets("feuil1").[A1] = Now
    temps = Now + TimeValue("00:00:1")
 
   If ThisWorkbook.Sheets("feuil1").[A2] = "" Then
        Application.OnTime temps, "majHeure"
    Else
        MsgBox "stopé"
    End If
End Sub

2) on redémarre la macro quand la cellule test est effacée
à coller directement dans le module de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Intersect(Target, [A2]) Is Nothing Then
        If [A2] = "" Then
            MsgBox "reprise"
            majHeure
        End If
    End If
 
End Sub

j'ai testé rapidement, et sous couvert d'adaptation, ça fonctionne

[Kestion100]

Je teste cette solution aussi dès que j'ai une seconde, certainement plus tard dans la journée

Comment j'intègre

Code :

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

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

, comme une sub à part entière? Je l'ai intégré après Sub LANCEURAUCHOIX()et VBA me fait remarquer que je ne peux rien écrire après End Sub????