texte en boucle

[tiguil]

j'utilise un code VBA pour faire dérouler des phrases dans une cellule. La vitesse de déroulement semble être à chaque seconde. Est-ce que quelqu'un sait comment modifier ce code pour le faire dérouler à chaque 1/2 secondes ???


Option Explicit
Dim NextTemps
Dim texte As String
Dim longueur As Integer
Dim i As Integer

Sub StartCopiefg()
texte = Sheets("info").Range("a2").Value
texte = texte + Sheets("info").Range("a3").Value
ajouter:
If Len(texte) / 5 <> Int(Len(texte) / 5) Then
texte = texte + " "
GoTo ajouter
End If
longueur = Len(texte)
i = 1
Range("u12") = " " '70
UpdateCopiefg
End Sub

Sub StopCopiefg()
On Error Resume Next
Application.OnTime NextTemps, "UpdateCopiefg", , False
Range("u12") = ""
End Sub

Sub UpdateCopiefg()
Range("u12") = Right(Range("u12"), Len(Range("u12")) - 5) & Mid(texte, i, 5)
i = i + 5
If i > longueur Then i = 1
NextTemps = Now + TimeValue("00:00:01")
Application.OnTime NextTemps, "UpdateCopiefg"
End Sub

 

[CBernardT]

Re : texte en boucle

Bonjour tiguil et le forum,

Essaye avec cette syntaxe :

NextTemps = Now + (TimeValue("00:00:01")/2)

Cordialement

Bernard

 

[tiguil]

Re : texte en boucle

Merci. ça fonctionne