défiler un petit texte dans une cellule

lamho27

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

jeanpierre

Nous a quitté
Repose en paix
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
 
Dernière édition:

Discussions similaires

Réponses
15
Affichages
752
Réponses
15
Affichages
704

Statistiques des forums

Discussions
312 841
Messages
2 092 711
Membres
105 517
dernier inscrit
Freddy93