défiler un petit texte dans une cellule

[lamho27]

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

 

[Tibo]

Re : défiler un petit texte dans une cellule

Bonjour,

Sans VBA, ce n'est pas possible (à ma connaissance).

Sinon, tu peux rechercher sur le Forum, le sujet a déjà été traité.

Voir ce fil par exemple (il y en a d'autres) :

https://www.excel-downloads.com/threads/texte-deroulant-sur-excel.54790/

@+

 

[jeanpierre]

Re : défiler un petit texte dans une cellule

Bonjour lamho27,

Sans Vba, je ne vois pas cela possible....

Avec Vba, un truc de ce style :

Sub défil()
ActiveSheet.Unprotect
Dim C As Range
Dim i%
Set C = Range("c1")
For i = 1 To x ' ici un multiple de ton texte 100 par exemple, si le texte fait 25 caractères, soit 4 fois le défilement
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Sleep 100
Next i
ActiveSheet.Protect
End Sub

Edit : Salut Tibo, long à rédiger moi

 

[BOISGONTIER]

Re : défiler un petit texte dans une cellule

Bonjour,

Sub auto_open()
 t = "ceci est texte défilant dans une cellule......"
 n = 0
 Do While n < 500
  t = Right(t, 1) & Left(t, Len(t) - 1)
  [A1] = t
   w = 0.2
   temp = Timer
   Do While Timer < temp + w
      DoEvents
   Loop
   n = n + 1
 Loop
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-ontime.zip

JB

 

[lamho27]

Re : défiler un petit texte dans une cellule

BOISGONTIER , je fais comme toi ; ça marche bien , mais quand defiler je tape sur 1 cellule ; a erreur " Microsoft visual basic 400"