Microsoft 365 Afficher un Titre/Message Défilant (Texte Marquee) dans un UserForm

[kingbeck]

Salut la team programmeur, j'ai crée un champ webbrowser1 dans VBA pour afficher un message défilant de "bienvenu dans l'application" mais il y a un message d'erreur qui empêche cela.
J'ai besoin de votre aide.

 

[Oneida]

Bonjour,
Un fichier et qu'elle erreur svp

 

[kingbeck]

Bonjour,
Un fichier et qu'elle erreur svp

En fait le texte s'affiche mais ne defile pas.

 

[Oneida]

Bonjour,
Ben oui, chez moi ca defile mais vous pas.
Donc votre fichier svp

 

[cathodique]

En fait le texte s'affiche mais ne defile pas.

Chez moi, il s'affiche et défile ou file très bien. Je ne sais plus au juste, surtout sans fichier.

 

[nullosse]

salut,

Ma boule de cristal est en panne,
le code qui affiche le texte déroulant ou un classeur contenant ce code pourrait m'aider.
Nullosse

 

[sylvanu]

Bonjour,
Regardez cet exemple du Maitre :

http://boisgontierj.free.fr/fichiers/Formulaire/FormMessageDefilant.xls

 

[Nicolas JACQUIN]

Bonjour à tous,
Une version sortie des tiroirs:

 

[TooFatBoy]

Ah ben si même Niko y arrive... 😁

Je ne dirais qu'une chose : Merci.

 

[cathodique]

Au final, il n'y a que le demandeur qui a disparu.

 

[patricktoulon]

Bonjour
je peux jouer moi aussi?
je vous propose un peu plus evolué qu'un label qui se ballade de droite à gauche
je vous propose le chenillard qui puis est optionalisable sans faire de grand code
cette méthode permet de faire défiler le texte dans une partie bien distincte de l'userform
le principe est très simple
dans un label dimensionné a notre gré on va faire defiler le texte en deplacant la 1ère lettre du debut à la fin
par rapport au wordwrap on pourra décider de faire défiler mot par mot ou lettre par lettre
dans l'exemple ci dessous et ci joint
je reprends le text de Nicolas
on décide de

1. de, la largeur du chenillard en determinant le nombre de caractère apparant(principe simillaire a columnwidth pour les cellule)
2. du texte
3. de la vitesse
4. défilement mot par mot ou lettre par lettre en benificiant de l'effet de bord du wordwrap

démonstration mot par mot

démonstration lettre par lettre

et le code est hyper simple

Dim rouleTambour As Boolean

Private Sub UserForm_Initialize()
    textdefil = "Bienvenue dans mon UserForm - Ceci est un message défilant - Et un Merci suffit !!! "
    With chenillard
    '-----------------------------------------------------
    'on dimentionne au nombre de caractère du chenillard
    .Caption = String(Nbchar, "-")
    .AutoSize = True
    .AutoSize = False 'on bloque sa taille obtenue
    '-----------------------------------------------------
 
    .WordWrap = WordByWord 'mot par mot ou lettre par lettre par le wordwrap
 
    .Left = (Me.InsideWidth - chenillard.Width) / 2 'on centre le chenullard
    End With
    rouleTambour = True
End Sub

Private Sub UserForm_Activate()
    Dim tim As Double
        Do While rouleTambour
        DoEvents
        'on decal a la seconde lettre le texte actuel que l'on reporte à la fin
        textdefil = Mid(textdefil, 2) & Left(textdefil, 1)
        'on affiche
        chenillard = Left(textdefil, Nbchar)
        'temporisation
        tim = Timer
        Do While Timer < tim + vitesse
            DoEvents
        Loop
    Loop
End Sub

Private Sub UserForm_Terminate()
    rouleTambour = False
End Sub

Cette méthode permet d'intégrer le texte défilant a une dimension précis a un endroit precis du userform et de la longueur que l'on veut
Patrick

 

[nullosse]

Salut,
L'avantage avec l'activeX WebBrowser, c'est que ce n'est pas le VBA qui gère le défilement :

Nullosse

 

[patricktoulon]

Bonjour @nullosse
l’inconvénient c'est que tout le monde ne l'autorise pas le webbrowser
et certains même ne peuvent plus

 

[patricktoulon]

et on peut même ajouter un icon ou logo

 

[nullosse]

l’inconvénient c'est que tout le monde ne l'autorise pas le webbrowser
et certains même ne peuvent plus

Salut patricktoulon,
c'est pas dans les feuilles qu'il y a des problèmes ? Dans les formulaires , il doit y avoir moins de soucis.