Microsoft 365 macro en fct de l'état d'une autre (boucle)

[matlatarte]

Bonsoir,

je fais clignoter une shape au clic via une macro et je l'arrête avec une autre macro.
J'aimerai que dans la même macro soit le clignotement démarre (car il ne clignotait pas encore) soit qu'il s'arrête (si déjà en train de clignoter) - je lance au passage un fichier son...

Voici où j'en suis avec mes 2 macros mais je ne vois pas comment les fusionner pour que je n'ai qu'une seule action correspondante aux 2 macros. Une idée ? Si quelqu'un au passage a une idée simple pour que le clignotement soit toutes les 500ms car mon système ne fonctionne qu'au minimum de 1sc...

Sub test()
    Intervalle = Now + TimeValue("00:00:01")
    Application.OnTime Intervalle, "Test"
 

    Dim MonWav As String
    MonWav = Range("aa16")    '... chemin et nom à adapter
    ExecuteExcel4Macro ("CALL(""winmm"",""PlaySoundA"",""JCJJ"",""" & MonWav & """, " & 0 & "," & &H1 & ")")


 
    If ActiveSheet.Shapes("droite").Visible = True Then
    
        With ActiveSheet.Shapes("tonaledroite")
        Set Var = ActiveSheet.Shapes("tonaledroite")
        If .Visible = msoTrue Then
         .Visible = msoFalse
        Else
          .Visible = msoTrue
        End If
        End With
      

  End If
End Sub


Sub Depart()
    Intervalle = Now + TimeValue("00:00:01")
  Application.OnTime Intervalle, "test"
End Sub

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

merci !

 

[sylvanu]

Bonsoir Matlatarte,
Peut être en utilisant un booléen déclaré en public, il sera ainsi conservé pour toute macro tant que le fichier est ouvert.

Public Flag As Boolean ' A mettre en tout début du module
Sub DepartArret()
    If Flag = False Then
        Intervalle = Now + TimeValue("00:00:01")
        Application.OnTime Intervalle, "test"
        Flag = True
    Else
        Application.OnTime Intervalle, "test", , False
        Flag = False
    End If
End Sub

NB: un petit fichier test aurait permis de tester.
Une bidouille au pif en PJ.

 

[matlatarte]

super ça marche ! merci j'ai appris ce qu'est un booléen !

 

[sylvanu]

Un booléen est tout simplement un bit. 0/1 ou True/False.