Banniere defilente

'API
Private Declare Function GetTickCount _
                         Lib "Kernel32" () As Long

Dim ArretDefil As Boolean
Dim Texte As String

Sub Minuterie(Milliseconde As Long)

    Dim Arret As Long
    
    Arret = GetTickCount() + Milliseconde
    
    Do While GetTickCount() < Arret
    
        DoEvents
        
    Loop

End Sub

Private Sub Chrono()

    Do
    
        If ArretDefil = True Then Exit Do
        
        'régler ici la vitesse en modifiant
        'la valeur (en millisecondes)
        Minuterie 100
        
        'régler le sens du défilement "Gauche" ou "Droite"
        Message "Droite"
        
    Loop

End Sub

Sub Message(Sens As String)

    Dim Chaine1 As String
    Dim Chaine2 As String
    
    'Faire défiler un texte dans la cellule
    'vers la droite ou vers la gauche
    With Worksheets("Feuil2").Range("A1")
    
        If Sens = "Droite" Then
        
            Chaine2 = Left(.Value, 1)
            Chaine1 = Right(.Value, Len(.Value) - 1) & Chaine2
            .Value = Chaine1
            
        ElseIf Sens = "Gauche" Then
        
            Chaine2 = Right(.Value, 1)
            Chaine1 = Chaine2 & Left(.Value, Len(.Value) - 1)
            .Value = Chaine1
            
        End If
        
    End With

End Sub

'Subs appelées par les bouton
Sub Marche()

    ArretDefil = False
    
    Chrono

End Sub

Sub Arret()
                                
    ArretDefil = True

End Sub