V valouf XLDnaute Junior 6 Avril 2021 #1 Bonsoir je cherche un code qui va me permettre d'allumer au bout de 2 s "a1" puis 2 s apres "a2" juqu'a a"500" merci d'avance
Bonsoir je cherche un code qui va me permettre d'allumer au bout de 2 s "a1" puis 2 s apres "a2" juqu'a a"500" merci d'avance
sylvanu XLDnaute Barbatruc Supporter XLD 6 Avril 2021 #2 Bonsoir Valouf, Un exemple en PJ qui utilise : VB: Application.Wait (Now + TimeValue("00:00:02")) Mais XL est bloqué pendant le déroulement de la macro. Pièces jointes Clignote.xlsm 17.2 KB · Affichages: 22 Vote positif 0 Vote négatif
Bonsoir Valouf, Un exemple en PJ qui utilise : VB: Application.Wait (Now + TimeValue("00:00:02")) Mais XL est bloqué pendant le déroulement de la macro.
blord XLDnaute Impliqué 6 Avril 2021 #3 Bonjour, 500 cellules à 2 secondes par cellule donne 1000 secondes de traitement. 1000/60 = +/- 15 minutes L'utilisateur attendra donc 15 minutes avant la fin du traitement... Je ne sais pas si dans votre cas c'est acceptable ou non... Vote positif 0 Vote négatif
Bonjour, 500 cellules à 2 secondes par cellule donne 1000 secondes de traitement. 1000/60 = +/- 15 minutes L'utilisateur attendra donc 15 minutes avant la fin du traitement... Je ne sais pas si dans votre cas c'est acceptable ou non...
Modeste geedee XLDnaute Barbatruc 6 Avril 2021 #5 Bonsour® sylvanu à dit: Bonsoir Valouf, Un exemple en PJ qui utilise : VB: Application.Wait (Now + TimeValue("00:00:02")) Mais XL est bloqué pendant le déroulement de la macro. Cliquez pour agrandir... au lieu de Application.Wait utiliser Application.OnTime(Now+timevalue("00:00:02"),"DecalerCible") Vote positif 0 Vote négatif
Bonsour® sylvanu à dit: Bonsoir Valouf, Un exemple en PJ qui utilise : VB: Application.Wait (Now + TimeValue("00:00:02")) Mais XL est bloqué pendant le déroulement de la macro. Cliquez pour agrandir... au lieu de Application.Wait utiliser Application.OnTime(Now+timevalue("00:00:02"),"DecalerCible")
job75 XLDnaute Barbatruc 6 Avril 2021 #6 Bonsoir, Très classique aussi : VB: t = Timer + 2 'temporisation 2 secondes While Timer < t And t < 86400: DoEvents: Wend Bonne nuit. Vote positif 0 Vote négatif
Bonsoir, Très classique aussi : VB: t = Timer + 2 'temporisation 2 secondes While Timer < t And t < 86400: DoEvents: Wend Bonne nuit.