Texte qui défile

Salut le forum et particulièrement à Amadéus,

j'ai vu un programme avec un texte qui défilait de gauche à droite avec ce code :

Sub auto_open()

t = "Texte ici"

n = 0

Do While n < 50

t = Right(t, 1) & Left(t, Len(t) - 1)

[F1] = t

w = 0.3

temp = Timer

Do While Timer < temp + w

DoEvents

Loop

n = n + 1

Loop

End Sub

Est-il possible de le faire défiler de droite à gauche ou de haut en bas?

Merci.

Salut le forum

Pour inverser le sens de déplacement du texte

t = Right(t, Len(t) - 1) & Left(t, 1)

Mytå

Salut le forum,

comme suggéré, j'ai modifié le code.

Ça fonctionne un certain temps et ensuite, ça fige. Le texte ne bouge plus.

???

Merci.

Salut le forum

Eric, la version avec défilement continu.

Sub auto_open()
t = "Texte ici"
Do
  t = Right(t, Len(t) - 1) & Left(t, 1)
  [F1] = t
  w = 0.3
  temp = Timer
    Do While Timer < temp + w
      DoEvents
    Loop
Loop
End Sub

Mytå

Edit : Ça défile Eric ou pas ?