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!
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 2 / 2
adohane
 
merci bien ça marche
0