Texte défilant

VIARD · 14 Avril 2017

Bonjour à toutes et tous

dans le fichier joint, vous trouverez en "Feuil2" un texte normal qui défile.
Par contre en "Feuil1", j'ai voulu simuler un affichage à Led, comme dans les enseignes lumineuses, type pharmacie ou autre.
l'affichage fonctionne, mais la visualisation clignote au rythme du défilement.
Y a-t-il une autre solution ?
J'ai créé une matrice de caractère de 5 x 7. (cellules)
Ceci est parfaitement inutile, sinon de faire mouliner le cerveau.

A+ Jean-Paul

Lone-wolf · 14 Avril 2017

Bonsoir Jean-Paul

Je ne comprends pas ce que tu veux faire avec ceci, mais ce n'est pas bon du tout. Avec la boucle For, tu veux couper 100 fois Range("G23:G29")???

VB:

For i = 1 To 100
    Range("G23:G29").Cut 'Select
    Cells(23, 7 + NbCol).Select
'    Range("CR23").Select
    ActiveSheet.Paste
  
    Range(Cells(23, 8), Cells(29, 7 + NbCol)).Cut
'    Range("H23:CR29").Cut 'Select
    Range("G23").Select
    ActiveSheet.Paste
Next i

Range("G23:G29").Cut
Cells(23, 7 + NbCol).Paste

En ce qui concerne la demande, jai bien peur que non. Avec WebBrowser et un texte en gif animé oui.

Lone-wolf · 15 Avril 2017

Re

Une alternative, en PJ

VIARD · 16 Avril 2017

Lone-wolf à dit:
Re

Une alternative, en PJ

Bonjour Lone-wolf et tous

Avec un peu de retard, merci pour ta réponse.
Le défaut je sais c'est pour cette raison que j'ai ouvert la discussion.
merci pour ton fichier, mais ce n'est pas ça.
Je reste persuadé qu'il y a une solution, Je n'ai pas pris le problème par le bon bout, je vais reprendre à zéro.

Cordialement

Jean-Paul

Texte défilant

VIARD

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

VIARD

XLDnaute Impliqué