Défilement d'un texte dans une cellule

[thomasdu40]

Bonjour,

Un texte devrait défiler dès l'ouverture de la feuille en cellule B2. Dans le code de la feuille j'ai intégré le code suivant :

Option Explicit
Dim NextTemps
Dim texte As String
Dim longueur As Integer
Dim i As Integer
Private Sub worksheet_Activate()
    texte = " Mise à jour le :    "
    texte = texte + "Ici d'autres saisie de texte"
ajouter:
    If Len(texte) / 5 <> Int(Len(texte) / 5) Then
    texte = texte + " "
    GoTo ajouter
    End If
    longueur = Len(texte)
    i = 1
    Range("B2") = "                              "
    UpdateCopie
End Sub
Sub UpdateCopie()
    Range("B2") = Right(Range("B2"), Len(Range("B2")) - 5) & Mid(texte, i, 5)
    i = i + 5
    If i > longueur Then i = 1
    NextTemps = Now + TimeValue("00:00:01")
    Application.OnTime NextTemps, "UpdateCopie"
End Sub

Mais rien ne se passe, le texte qui est pré-saisi dans le code ne défile pas.

C'est un ancien code trouvé sur ce site que j'ai voulu adapter à mes attentes mais malheureusement il ne m'affiche même pas une erreur.

Merci de votre aide.

 

[jeffe]

Re : Défilement d'un texte dans une cellule

hello, mets la procedure dans un module, et sur la worksheet activate, appel cette procedure. attention, le defilement ne s'arrete pas, pense à mettre un arret.
autrement, j'utilise ceci qui est plus fluide (mais ce n'est pas dans une cellule....)

 

[thomasdu40]

Re : Défilement d'un texte dans une cellule

Bonjour et merci Jeffe,

Je viens d'intégrer dans la feuille le code suivant :

Private Sub Worksheet_Activate()
Call Macro1
End Sub

et j'ai mis un module avec le code suivant :

Public Arreter_macro As Boolean


Sub Macro1()
    Txt = Range("B4").Value
    Arreter_macro = False
    
    Do
        ActiveSheet.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
    ActiveSheet.TextBox5.Value = ""
End Sub

Mais malheureusement je n'ai rien qui apparaît dans mon textbox (textbox5).😕

Merci.

 

[jeffe]

Re : Défilement d'un texte dans une cellule

Es tu sur que ta textbox dessinée sur ta feuille s'appel bien TextBox5 ? chez moi cela fonctionne???????
en mode création, selectionne ta textebox et regarde soit dans la zone nom ou clic droit et proprieté et la tu verras le nom.
de te lire

 

[thomasdu40]

Re : Défilement d'un texte dans une cellule

Je confirme, c'est bien la textbox 5 qui se trouve sur ma feuille.

 

[jeffe]

Re : Défilement d'un texte dans une cellule

Je confirme, c'est bien la textbox 5 qui se trouve sur ma feuille.

peux tu joindre ton fichier sans data confidentielles?

 

[thomasdu40]

Re : Défilement d'un texte dans une cellule

Ca y est le code fonctionne. En persévérent on y arrive.

Je clôture ce post et encore merci à toi Jeffe.🙂