Lancer des macro H + 2m30 puis H + 4mn

[SSIAP2]

Bonjour à tous

Je recherche une solution de temporisation de lancement d'une macro.

mon premier probleme
j'ai 3 macro la premiere se declencherais manuelement via un bouton je souhaiterais que la macro 2 se declenche 2mn30 apres le lancement de la macro1 et que la 3 eme se declenche 4mn apres le lancement de la macro 2

second soucis
j'utilise une macro qui quand je la lance via un bouton s'affiche j'aimerais que quand je clique sur mon bouton il s'affiche quand je relache le bouton image se masque.

quelqu'un aurais une petite idée svp merci j'ai pas mis de fichier exemple pas par paresse mais car je sais pas par ou commencer en fait.

merci d'avance pour votre aide

 

[Staple1600]

Re : Lancer des macro H + 2m30 puis H + 4mn

Bonjour à tous

SSIAP2

quelqu'un aurais une petite idée svp merci j'ai pas mis de fichier exemple pas par paresse mais car je sais pas par ou commencer en fait.

Commencer peut-être =7&prefixchoice[]=&prefixchoice[]=Excel_2013&prefixchoice[]=Excel_2010&prefixchoice[]=Excel_2007&prefixchoice[]=Excel_2003&prefixchoice[]=Excel_2002"]par ici ...🙄

EDITION: Bonsoir MJ13

 

[MJ13]

Re : Lancer des macro H + 2m30 puis H + 4mn

Bonjour à tous

En général, on utilise la Ontime.

Ex:

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

ou

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

et pour annuler le ontime (c'est très important 🙂):

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
    Procedure:="my_Procedure", Schedule:=False

 

[SSIAP2]

Re : Lancer des macro H + 2m30 puis H + 4mn

Bonsoir Staple1600

entre temps en fouinant un peu j'ai adapter une macro présent sur le forum comme ceci

Sub teste1()
SDI_Onglet.RESET
SSI.SDI_1.Visible = True
End Sub

Sub teste2()
SDI_Onglet.RESET
SSI.SDI_2.Visible = True
End Sub

Sub teste3()
SSI.SDI_3.Visible = True
End Sub

Sub Actualiser()
    Range("J3") = Now
    Application.OnTime Now + TimeValue("00:00:10"), "teste1"
    Application.OnTime Now + TimeValue("00:00:20"), "teste2"
    Application.OnTime Now + TimeValue("00:00:30"), "teste3"
    Exit Sub
End Sub

Sub miseàjour_Cliquer()
Actualiser
End Sub

et sa marche genial.

je penche donc sur mon second soucis quand je maintien mon bouton appuyer l image s'affiche autrement l'image se cache

merci pour ton aide sur la recherche

 

[SSIAP2]

Re : Lancer des macro H + 2m30 puis H + 4mn

Bonsoir MJ13 merci pour ta participation je pense que ta solution s rapproche de ma macro un grand merci je testerais