Exécuter une macro toutes les X secondes

Bonjour tout le monde!

Alors voilà, j'ai un soucis avec ceci: l'application Ontime ==> Application.OnTime Now + TimeSerial(0, 0, Interval), ??

Déjà je ne sais pas si c'est la meilleure solution, voilà ce que je voudrai faire:

Expliqué simplement, mon classeur XLS est vierge, et je voudrai que sur la feuille 1, en celulle A2, s'affiche alternativement les mots: Bonjour / aurevoir. (changement chaque 3 secondes)

Donc 3 secondes de bonjour, puis 3 secondes d'aurevoir. Alors je prends un exemple bête pour demander comment faire mais en fait mon but est de pouvoir modifier automatiquement chaque X secondes une phrase complète. (par exmple un moment en français, puis en anglais etc.........)

Je souhaite une bonne journée à toute la communauté!!

Kämas

Bonjour,

Tu peux tester l'instruction suivante :

Application.OnTime Now + TimeValue("00:00:03"), "tamacro"

En espèrant que cela t'aide ...

Merci bcp pour ta réponse!

Mais dois-je la mettre en auto_open? Puis-que je voudrai que cela se face automatiquement à l'ouverture!

Bonjour,

Dim StopBJAR As Boolean

Sub BJAR()
    Static bar%
    Worksheets("Feuil1").Range("A2") = IIf(bar = 1, "Au revoir !", "Bonjour !")
    bar = (bar + 1) Mod 2
    Application.OnTime Now + TimeSerial(0, 0, 3), IIf(StopBJAR, "Effacer", "BJAR")
End Sub

Sub ArrêtBJAR()
    StopBJAR = True
End Sub

Sub LancerBJAR()
    StopBJAR = False
    BJAR
End Sub

Sub Effacer()
    Worksheets("Feuil1").Range("A2").ClearContents
End Sub

Dans un module standard.

Un bouton pour lancer : LancerBJAR

Un bouton pour stopper, qui lance : ArrêtBJAR

NB- Si tu veux lancer à l'ouverture :

Private Sub Workbook_Open()
    LancerBJAR
End Sub

Mais prévois toujours un dispositif d'arrêt...