XL 2013 Arrêt macro ne fonctionne pas

[Nico77]

Bonjour

Quand je clic pour un arrêt de la macro il me surligne la ligne, pourquoi, quel est l'erreur?

Sub Arret()
Application.OnTime Intervalle, "Clign1", , False
End Sub

Merci a vous.

bonne journée

 

[Nain porte quoi]

Hello,

parce que "intervalle" est vide, il faut déclarer la variable en début de module pour qu'elle soir commune aux sub du module

Une bonne pratique consiste à mettre "Option Explicit" en début de module, ça permet de voir tout de suite si on a fait une erreur dans un nom de variable ou oublié une déclaration

Dim Intervalle

Sub Clign1()
Intervalle = Now + TimeValue("00:00:01")

Application.OnTime Intervalle, "Clign1"

With ActiveSheet.Shapes("Rectangle à coins arrondis 2")
Set Var = ActiveSheet.Shapes("Rectangle à coins arrondis 2")

If .Fill.ForeColor.RGB = 192255 Then
.Fill.ForeColor.RGB = 255 '3057486

Else

.Fill.ForeColor.RGB = 192255

End If
End With
End Sub
Sub Depart()
Intervalle = Now + TimeValue("00:00:01") 'TimeValue("00:00:01")
Application.OnTime Intervalle, "Clign1"
End Sub
Sub Arret()
Application.OnTime Intervalle, "Clign1", , False
End Sub

 

[scraper]

Bonjour

Ne faut t'il pas que Clign1 soit appelé d'abord quelque part, la shape à une macro associée : Rectangleàcoinsarrondis2_Cliquer que je vois nulle part !!!
OK :les Sub Depart et Arret sont appelées via les boutons Reprise et Stop clignoittement

 

[patricktoulon]

bonjour
si tu utilise le shredule dans appilcation ontime utilise le pour le start and stop sinon ne l'utilise pas
utilise une variable booleenne global module pour le stopper

Patrick

 

[patricktoulon]

@Nain porte quoi
intervalle une fois renseignée tu n'a pas besoin de le refaire dans la clign1

 

[Nain porte quoi]

Hello @patricktoulon, effectivement, généralement je me contente de corriger l'erreur qui fait planter sans trop m'occuper du reste

 

[Nico77]

bonjour
si tu utilise le shredule dans appilcation ontime utilise le pour le start and stop sinon ne l'utilise pas
utilise une variable booleenne global module pour le stopper

Patrick

Merci beaucoup c'est parfait

Bonne journée

 

[Nico77]

bonjour
si tu utilise le shredule dans appilcation ontime utilise le pour le start and stop sinon ne l'utilise pas
utilise une variable booleenne global module pour le stopper

Patrick

 

[Nico77]

bonjour
si tu utilise le shredule dans appilcation ontime utilise le pour le start and stop sinon ne l'utilise pas
utilise une variable booleenne global module pour le stopper

Patrick

Bonjour

Merci cela fonctionne Mais je les mis a l'ouverture du fichier cela fonctionne
Mais a la fermeture du fichier si il est tous seul a être ouvert il ce ferme bien.

Par contre ci un autre fichier excel ouvert il beug, pourquoi?

With ActiveSheet.Shapes("Rectangle à coins arrondis 1") '( IL me surligne cette ligne )

Sub Clign1()
Dim delay#, Intervalle
If arret Then Exit Sub
DoEvents
delay = 0.000007 '0.000007'un peu plus d'une demie seconde environ en centiemme
Intervalle = Now + delay

Application.OnTime Intervalle, "Clign1"

With ActiveSheet.Shapes("Rectangle à coins arrondis 1") '( IL me surligne cette ligne )
If .Fill.ForeColor.RGB = couleurdepart Then
.Fill.ForeColor.RGB = couleur2
Else
.Fill.ForeColor.RGB = couleurdepart
End If
End With
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
Stopper
ThisWorkbook.Save
End Sub

Merci

 

[Nico77]

Bonjour

Merci cela fonctionne Mais je les mis a l'ouverture du fichier cela fonctionne
Mais a la fermeture du fichier si il est tous seul a être ouvert il ce ferme bien.

Par contre ci un autre fichier excel ouvert il beug, pourquoi?

With ActiveSheet.Shapes("Rectangle à coins arrondis 1") '( IL me surligne cette ligne )



Merci

Voici ce qu'il me met et quant je click su fin il veux rien savoir il tourne et me laisse cette fenêtre. Et le click sur débogage il ouvre le fichier et me bascule sur le developpeur.

 

[patricktoulon]

re
fait un addressage complet de l'object ainsi que la procedure pour le shreduler

Option Explicit

Dim arret As Boolean

Const couleurdepart As Long = 255
Const couleur2 As Long = 192255

Sub Clign1()
    Dim delay#, Intervalle
    If arret Then Exit Sub
   DoEvents
   delay = 0.000007 'un peu plus d'une demie seconde environ en centiemme
    Intervalle = Now + delay
    
    Application.OnTime Intervalle, ThisWorkbook.FullName & "!Module1.Clign1"
    
    With ThisWorkbook.Sheets("Feuil1").Shapes("Rectangle à coins arrondis 2")
        If .Fill.ForeColor.RGB = couleurdepart Then
            .Fill.ForeColor.RGB = couleur2
        Else
            .Fill.ForeColor.RGB = couleurdepart
        End If
    End With
End Sub

Sub Depart()
    arret = False
    Clign1
End Sub

Sub stopper()
    arret = True
    'retour a la couleur initiale
    ActiveSheet.Shapes("Rectangle à coins arrondis 2").Fill.ForeColor.RGB = couleurdepart
End Sub

ainsi comme tu peux le voir je peux être sur un autre fichier en même temps

 

[Nico77]

re
fait un addressage complet de l'object ainsi que la procedure pour le shreduler

Option Explicit

Dim arret As Boolean

Const couleurdepart As Long = 255
Const couleur2 As Long = 192255

Sub Clign1()
    Dim delay#, Intervalle
    If arret Then Exit Sub
   DoEvents
   delay = 0.000007 'un peu plus d'une demie seconde environ en centiemme
    Intervalle = Now + delay
  
    Application.OnTime Intervalle, ThisWorkbook.FullName & "!Module1.Clign1"
  
    With ThisWorkbook.Sheets("Feuil1").Shapes("Rectangle à coins arrondis 2")
        If .Fill.ForeColor.RGB = couleurdepart Then
            .Fill.ForeColor.RGB = couleur2
        Else
            .Fill.ForeColor.RGB = couleurdepart
        End If
    End With
End Sub

Sub Depart()
    arret = False
    Clign1
End Sub

Sub stopper()
    arret = True
    'retour a la couleur initiale
    ActiveSheet.Shapes("Rectangle à coins arrondis 2").Fill.ForeColor.RGB = couleurdepart
End Sub

ainsi comme tu peux le voir je peux être sur un autre fichier en même temps
Regarde la pièce jointe 1227235

Les modif permet de travaillé sur plusieurs fichier OK.
Mais si j'ai plusieurs fichier ouvert et que je le ferme ; la il se réouvre automatiquement. Et le clignotement est plus rapide.

C'est comme si il ne prenais pas la fonction "Stopper" a la fermeture.
Comprend pas.

Je met le fichier sur le quel il est placé
Merci

Bonne journée

 

[Dranreb]

Bonjour.
Notez dans une variable globale du module l'heure à spécifier au Application.OnTime pour pouvoir la re-spécifier ultérieurement à un autre avec Schedule:=False.
J'ai des modules de services pour pouvoir planifier un évènement Echoit dans un module objet si ça vous intéresse. Simple à utiliser.

 

[patricktoulon]

Mais si j'ai plusieurs fichier ouvert et que je le ferme ; la il se réouvre automatiquement. Et le clignotement est plus rapide.

a bon pas chez moi
quand je le ferme il se ré ouvre pas tout seul
j'espère que tu n'a pas laisser l'argument schreduler
dans mon exemple c'est la sub elle même qui rappelle si tu ferme elle peut pas rappeler

 

[Nico77]

a bon pas chez moi
quand je le ferme il se ré ouvre pas tout seul
j'espère que tu n'a pas laisser l'argument schreduler
dans mon exemple c'est la sub elle même qui rappelle si tu ferme elle peut pas rappeler

ah la vous me parlé charabia.
Je ne connais pas cette argument schreduler.

Pouvez vous ment dire plus

Merci