XL 2010 DEFILER UN TEXTE

[aurelle]

SALUT COMMENT FAIRE DEFILE UN TEXTE DANS UNE CELLULE
MERCI LE CODE S IL VOUS PLAIT

 

[phlaurent55]

https://www.excel-downloads.com/help/charte/

 

[aurelle]

BIEN VOULOIR M EXCUSER SI MES PROPOS ONT ETE NON APPROPRIES JE VOUS PRIE DE BIEN VOULOIR CROIRE EN MA SINCERITE ET MES EXCUSES LES PLUS PLATES
MERCI

 

[Lone-wolf]

Bonjour aurelle , phlaurent

D'apres l'exemple de Jacques Boisgontier.

Option Explicit

Sub defile()
Dim t$, n&, w, temp

    t = "FAIRE DEFILER UN TEXTE DANS UNE CELLULE ..."
    n = 0

    Do While n < 100
        t = Right(t, Len(t) - 1) & Left(t, 1)
        Feuil1.Range("c5") = Left(t, 50)
        w = 0.1
        temp = Timer
        Do While Timer < temp + w
            DoEvents
        Loop
        n = n + 1
    Loop
End Sub

 

[aurelle]

merci phlaurent mais sorry ça ne fonctionnement pas encore
voici ce que j ai mis dans la feuille accueil
Option Explicit

Sub defile()
Dim t$, n&, w, temp

t = "PROCES VERBAL DE NOTE DE B T S NIVEAU 1 ..."
n = 0

Do While n < 100
t = Right(t, Len(t) - 1) & Left(t, 1)
Accueil.Range("a31") = Left(t, 50)
w = 0.1
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub

 

[JCGL]

Bonjour à tous,

Remplace :

Accueil.Range("a31") = Left(t, 50)

par

Sheets("Accueil").Range("a31") = Left(t, 50)

A+ à tous