Bande passante sur deux feuils d'un meme classeur

Sur la feuil A je veux faire défiler un petit message et sur la feuil B faire défiler un autre message différent

Public Const Feuille = "A"
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
Public Const PositionMessage = "A1"

Bonjour yg_be

sylla.junior2_3228
mais si je reprends les memes codes vba sur feuil B
Et il est ou le code pour faire car ce que vous avez mis post 4 ne fait rien ….

Public Const Feuille = "Accueil"
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
Public Const PositionMessage = "A1"

Public Sub DéroulerMessage()
Caractère = 1
While MessageActif
message1 = Mid(Message, Caractère, Len(Message) - Caractère + 1)
message2 = Mid(Message, 1, Caractère - 1)
Sheets(Feuille).Range(PositionMessage) = message1 & message2
Caractère = Caractère + 1
If Caractère > Len(Message) Then Caractère = 1
DoEvents
For t = 1 To Pause: Next t
Wend
End Sub

Re,

Y en manque encore,

MessageActif 

: qui met a vrai,qui le met a faux
Comment est lance

Public Sub DéroulerMessage(

) en partant de quoi

Feriez mieux de mettre votre fichier a dispo avec les explications qui vont bien

site de partage: https://mon-partage.fr/