XL 2010 DEFILER UN TEXTE

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Juin 2017

• #2

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

 

Vote positif 0 Vote négatif

A

aurelle

XLDnaute Nouveau

• 3 Juin 2017

• #3

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Juin 2017

• #4

Bonjour aurelle , phlaurent

D'apres l'exemple de Jacques Boisgontier.

VB:

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

 

Vote positif 0 Vote négatif

A

aurelle

XLDnaute Nouveau

• 3 Juin 2017

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2017

• #6

Bonjour à tous,

Remplace :

Code:

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

par

Code:

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

A+ à tous

 

Vote positif 0 Vote négatif