Bonjour,
J'ai le code ci-après qui me pose problème. En effet lorsque j'ouvre mon fichier il m'indique [Erreur de compilation : projet ou bibliothèque introuvable] et sur fond bleu j'ai
Txt
. Il s'agit d'un texte qui se trouve en B4. Ce texte est reproduit dans un textbox5 ce qui permet d'avoir un texte défilant.
Je n'arrive pas à résoudre ce problème donc si un pro pouvait m'aider ou peut être avoir une autre solution.
Sub Macro1()
Txt = Range("B4").Value
Arreter_macro = False
Do
Feuil2.TextBox5.Value = Txt
W = 0.2
Temp = Timer
Do While Timer < Temp + W
If Arreter_macro = True Then Exit Do
DoEvents
Loop
Txt1 = Right(Txt, Len(Txt) - 1)
Txt2 = Left(Txt, 1)
Txt = Txt1 & Txt2
Loop Until Arreter_macro = True
Feuil2.TextBox5.Value = ""
End Sub