XL 2019 texte défilement automatique sur une cellule fusionner

[Taratessy]

Bonjour je souhaiterais faire défiler automatiquement un texte dans une cellule affin de faire passer un message (control document ) mais je n'arrive pas a trouvez .
pouvez vous m'aider ?

Merci a vous par avance

 

[Phil69970]

Bonjour @Taratessy

Je te propose ceci à adapter à ton fichier

defilement de texte dans excel

salut a tous je cherche a faire un defilement de texte dans une cellule ,si c'est possible merci a celui qui pourra me donner une reponse

excel-downloads.com

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonjour Taratessy, Phil,
Regardez ici :

défiler un petit texte dans une cellule

bonjour le forum Je voudrais faire défiler un petit texte dans une cellule avec fonction , pas VBA merci

excel-downloads.com

ou encore là : Lien Lien Lien

 

[Taratessy]

Bonjour et Dsl pour cette réponse tardive .

Merci a vous pour vos réponse
mais il faut savoir que je débute et ne sais comment intégrer le code BVA dans ma cellule bleu fusionner
je demande encore votre aide pour cela

cordialement

 

[patricktoulon]

Bonjour
tu débute alors autant te donner les bonnes habitudes et pratiques tout de suite
ce genre d’animation tu oublie

 

[patricktoulon]

c'est peut être un peu trop direct non?

 

[sylvanu]

Re,
Ce serait une très mauvaise expérience pour quelqu'un qui débute en VBA.
Et ça risquerait de le désespérer et d'abandonner. Ce serait dommage.
Donc, perso, je plussoie.

 

[patricktoulon]

Message du jour
lisez bien

LOL
pour info la modif est exécutée en addressof et pourtant ça plombe un peu la mémoire quand même
et d'autres choses aussi
quel est le comble pour un gars qui dit de ne pas faire ce genre d'animation

réponse :ben de répondre en animation

LOL

 

[sylvanu]

Re,
En tant qu'utilisateur, ça doit extrêmement désagréable de voir un ruban défiler.
Quand je pense que des membres XLD ont râlé de voir simplement la petite étoile tourner !

 

[patricktoulon]

re
Ah oui !!!! absolument moi perso ça me gène énormément
bah!!... c'est moche ouh!!....

 

[patricktoulon]

tient pour vous amuser

Option Explicit
Const OriginalText$ = " Faire défiler du texte dans une cellule ca ne sert a rien a part  bouffer de lenergie qui pourrait servir a autre chose"

#If VBA7 Then
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
    Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
Dim TimerID&
Sub start()
    TimerID = SetTimer(0, 0, 100, AddressOf DefileText)
End Sub

Sub arret()
    If TimerID <> 0 Then KillTimer 0, TimerID: TimerID = 0
  Feuil1.[E2].Value = OriginalText
   End Sub

Sub DefileText()
     On Error Resume Next    'gestion d'erreur supprimée
        Feuil1.[E2].Value = Mid([E2], 2, Len([E2])) & Left([E2], 1)
    On Error GoTo 0
End Sub