Defiler du text

Résolu
adohane -  
 adohane -
Bonjour,
je demande votre comme toujours merci d'avance
voilà : je veux faire défiler du texte dans un label d'un userform
si vous pouvez me donner les changement à faire pour ce code qui marche bien sur une feuille excel cellule F1 :
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
merci encore!

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Private Sub UserForm_Activate()
        defilement
    End Sub

    Sub defilement()
        t = "Texte ici"
        Do
            t = Right(t, Len(t) - 1) & Left(t, 1)
            Label1.Caption = t
            w = 0.3
            temp = Timer
            Do While Timer < temp + w
                DoEvents
            Loop
        Loop
    End Sub
    0