Texte déroulant

Bonjour
Va voir chez Misange il y a peut-être des exemples :
http://www.excelabo.net/xl/controles.php

Cordialement
Pascal

"André" <Andr@discussions.microsoft.com> a écrit dans le message de news:
BC07DC4E-6E6F-4175-9831-49ECFF55CDDE@microsoft.com...

Bonjour à tous,
Avec Excel 2003 existe-t-il une procédure ou un contrôle me permettant de
faire défiler du texte (horizontalement) dans une cellule, dans une plage
ou
même dans une zone de texte.
Merci à tous!

Re
Sinon voici quelque chose de pas terrible à améliorer, (pour tester activer
un autre onglet puis revenir sur la feuille du défilement):
(code à coller dans la feuille par clic droit, Visualiser le code puis
coller dans la page blanche de droite)
Public Arret As Boolean
Private Sub Worksheet_Activate()
Arret = False
debut = Timer
Do While Arret = False
DoEvents
With Range("A1")
.Value = "Ceci "
.Value = .Value & "est "
.Value = .Value & "un "
.Value = .Value & "exemple "
.Value = .Value & "de "
.Value = .Value & "défilement"
.ClearContents
End With
Loop
End Sub
Private Sub Worksheet_Deactivate()
Arret = True
End Sub

Cordialement
Pascal


"André" <Andr@discussions.microsoft.com> a écrit dans le message de news:
BC07DC4E-6E6F-4175-9831-49ECFF55CDDE@microsoft.com...

Bonjour à tous,
Avec Excel 2003 existe-t-il une procédure ou un contrôle me permettant de
faire défiler du texte (horizontalement) dans une cellule, dans une plage
ou
même dans une zone de texte.
Merci à tous!

Sub textedef()
t = "ceci est texte......"
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

Cordialement JB

Merci à vous deux. C'est ce que je cherchais.

Bonjour à tous,
Avec Excel 2003 existe-t-il une procédure ou un contrôle me permettant de
faire défiler du texte (horizontalement) dans une cellule, dans une plage ou
même dans une zone de texte.
Merci à tous!