message défilant

[sonic730]

Bonsoir à tous,
J'aurais encore besoin de votre aide.

J'aurais voulu sous excel 2007 faire des messages défilant.
J'ai pu trouvé un code qui est pas trop mal.
Je vous le met, et je vous explique ce que je voudrais, sachant que je l'ai très légèrement adapté.

Voici le code :

Option Explicit
Dim NextTemps
Dim texte As String
Dim longueur As Integer
Dim i As Integer
Sub StartCopie()
texte = " Date: maintenant()"
texte = texte + "Pensez à faire le budget prévisionnel "
ajouter:
If Len(texte) / 5 <> Int(Len(texte) / 5) Then
texte = texte + " "
GoTo ajouter
End If
longueur = Len(texte)
i = 1
Range("f33") = " "
UpdateCopie
End Sub
Sub StopCopie()
On Error Resume Next
Application.OnTime NextTemps, "UpdateCopie", , False
Range("f33") = ""
End Sub
Sub UpdateCopie()
Range("f33") = Right(Range("f33"), Len(Range("f33")) - 5) & Mid(texte, i, 5)
i = i + 5
If i > longueur Then i = 1
NextTemps = Now + TimeValue("00:00:01")
Application.OnTime NextTemps, "UpdateCopie"
End Sub


Donc voila la première ébauche.
J'aurais aimé avoir en f33 la date à l'instant t qui défile. Je sais vous allez me dire que ce que j'ai mis ne fonctionne pas. Je sais ...

Ensuite sur la ligne f34, j'aurais aimé que par exemple 1 mois avant une date donnée (par exemple le 1er septembre) le message suivant apparaisse "Pensez à faire le budget prévisionnel "

Sur le code que j'ai mis le texte qui défile se lance seulement après l'appui sur le bouton startcopie. J'aurais aimé que le défilement se lance à l'ouverture de la feuille, sans perdre la fonctionnalité des 2 boutons.

maintenant si vous avez des des questions, ou des idées d'améliorations pour simplifié le tout, il n'y a pas de souci.

Merci à tous de votre aide, si précieuse