temporisation

[VIARD]

Bonjour à tous
Sur un userform dans un Label, j'ai créé un texte défilent.
Pour ça j'ai utilisé la fonction
"Application.Wait (Now + TimeValue("00:00:01"))"
mais je ne sais pas descendre en dessous de la seconde, 100 ou 150 millisecondes.
Quelqu'un peut-il me renseigner
Merci
Texte = "Texte_Défilent"
Nb = Len(Texte)
For Z = 1 To 3
For X = 1 To Nb
Tata = Left(Texte, X)
UserForm1.Label2.Caption = Tata & "."
Application.Wait (Now + TimeValue("00:00:01"))
Next
For i = 1 To 20
UserForm1.Label2.Caption = Texte & Space(i) & "."
Application.Wait (Now + TimeValue("00:00:01"))
If i = 20 Then
For Y = 1 To Nb
Toto = Right(Texte, (Nb - Y))
UserForm1.Label2.Caption = Toto & Space(i + Y + Y) & "."
Application.Wait (Now + TimeValue("00:00:01"))
Next
End If
Next
Next
Viard J-P

 

[Gorfael]

Re : temporisation

Bonjour à tous
Sur un userform dans un Label, j'ai créé un texte défilent.
Pour ça j'ai utilisé la fonction
"Application.Wait (Now + TimeValue("00:00:01"))"
mais je ne sais pas descendre en dessous de la seconde, 100 ou 150 millisecondes.
Quelqu'un peut-il me renseigner
Merci
Texte = "Texte_Défilent"
Nb = Len(Texte)
For Z = 1 To 3
For X = 1 To Nb
Tata = Left(Texte, X)
UserForm1.Label2.Caption = Tata & "."
Application.Wait (Now + TimeValue("00:00:01"))
Next
For i = 1 To 20
UserForm1.Label2.Caption = Texte & Space(i) & "."
Application.Wait (Now + TimeValue("00:00:01"))
If i = 20 Then
For Y = 1 To Nb
Toto = Right(Texte, (Nb - Y))
UserForm1.Label2.Caption = Toto & Space(i + Y + Y) & "."
Application.Wait (Now + TimeValue("00:00:01"))
Next
End If
Next
Next
Viard J-P

Salut
Now + (TimeValue("00:00:01")/1000)*150
A+

 

[VIARD]

Re : temporisation

Merci Gorfael
je vais testé
A+ Jean-Paul