Défilement texte dans cellule Excel

Bonjour z'à vous tous dont je sollicite à nouveau les compétences exceliennes !

Je sais que cette question a été posée un million de fois environs...Malheureusement en checkant sur le site (dans les anciennes questions posées), les pages-réponses ne s'affichent pas.

Donc au risque de me faire traiter de tous les noms, voici la question :

Est-ce que la programmation ci-dessous me permettrait de faire défiler un texte dans une cellule Excel et, si oui comment créer le label1 (avec Option Explicit

Dim Texte As String)

Private Sub UserForm_Initialize()

Texte = "Veuillez remplir " & _

"toutes les cases avant " & _

"de clicker sur la date ou " & _

"de validé la sortie des articles,merci.....!" & Space(3)

With Label1

.Caption = Texte

.Font.Bold = True

End With

End Sub

Sub Message()

Dim Chaine1 As String

Dim Chaine2 As String

'Faire défiler un Label dans un Frame

'With LblMessage

' .Left = .Left - 10

' If .Left + .Width < 0 Then

' .Left = Frame1.Width

' End If

'End With

'Faire défiler un texte dans un Label

With Label1

Chaine2 = Left(.Caption, Len(Texte) - Len(.Caption) + 1)

Chaine1 = Right(.Caption, Len(.Caption) - 1) & Chaine2

.Caption = Chaine1

End With

End Sub

J'ai trouver tout ca sur internet mais suis incapable de l'installer sur ma petite création.

Merci !

Bonsoir à tous,

Trouvé sur ce forum :

Sub defile()

t = [f34] ''texte
n = 0
Do While n < 50
t = Right(t, 1) & Left(t, Len(t) - 1)
[F40] = t
w = 0.3
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop

End Sub

dans cet exemple, le texte est en F34 et défile en F40

à adapter à tes besoins

amicalement

Claude.

Un grand merci !

Comme je le disais moi et excel on ne se connaît malheureusement pas assez pour que je puisse adapter selon mes goûts la formule donné !

Donc comment puis-je :

1- modifier le défilement de la droite vers la gauche ?

2- ne pas mettre de contrainte de temps (défilement perpétuel) ?

Encore merci !

re,

t = Right(t, Len(t) - 1) & Left(t, 1) 'droite vers G
't = Right(t, 1) & Left(t, Len(t) - 1) ' Gauche vers D

pour le reste, je sais pas !

claude.

Merci pour l'info ! c'est déjà beaucoup...

re,

Je profite du fil, pour poser à mon tour une question :

Serait-il possible d'avoir une macro en arrière plan, c'est à dire que l'on puisse travailler

sur le fichier pendant le défilement ?

virago, si cette question t'intéresse, retire le "résolu"

Claude.