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
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