Faire defiler un texte dans un USF

**Seuche** · 15/03/2012, 21h12

bonsoir le forum

je viens vers vous pour une modification de Mon USF que l'on appel avec le bouton accueil je voudrais que la ou c'est écrit GESTION DES SORTIES je voudrais que cela défile avec un web browser il me semble a l'appel de USF et qui s'arrete a la fermeture de celui ci

merci de voir ce que vous pouvez faire et me dire ci le problème est réalisable

amicalement

**fring** · 16/03/2012, 08h06

Bonjour,

Jette un oeil là --> http://excel.developpez.com/faq/?pag...exteWebbrowser

**Seuche** · 16/03/2012, 13h59

Bonjour
Serait il possible que quelqu ün me fasse la modification et me l'ingremente a mon userform et que cela fonctionne

Merci de me tenir au courant

**Philippe Tulliez** · 16/03/2012, 14h23

Bonjour,
Avec le lien que t'a donné Fred, tu dois être capable de l'intégrer dans ton UserForm me semble t'il.
1) Tu fais un clic droit sur la boîte à outils du UserForm.
2) Tu cliques sur Contrôles supplémentaires...
3) Dans la liste des contrôles supplémentaires, tu coches "Navigateur Web Microsoft" comme c'est indiqué dans le lien.
4) Ensuite tu dessines le contrôle dans ton UserForm et tu copies le code qui se trouve dans le lien donné.

**Seuche** · 16/03/2012, 20h53

j'ai fait le post de corona a la lettre et malheureusement ca ne marche pas

**Seuche** · 17/03/2012, 13h35

bonjour le forum et casefayere
j'ai fais l'essai avec ce que tu as fait mais toujours rien a part une erreur nom ambigu
pour ce qui est du code pour deverrouiller mon vba je te l'envoi en message priver
et merci de voir ce que tu pourras faire

amicalement

**casefayere** · 17/03/2012, 13h59

Bonjour le forum, Philippe, Fred, Seuche

Ci-joint ton fichier auquel je me suis contenté d'intégrer le Webbrowser.
j'ai mis l'évènement dans "UserForm_Activate"
A toi d'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Activate()
    ParametresHtml "Gestion des sorties *** Gestion des sorties *** ", "#000099"
End Sub
 
 
'scrollAmount définit la vitesse de défilement.
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
    Me.WebBrowser1.Navigate _
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
        & LaCouleur & " size='6' face='Arial'>" & _
        "<marquee scrollAmount=5>" & LeTexte & "</marquee></font></body></html>"
End Sub

Bonne journée à tou(te)s

**Seuche** · 17/03/2012, 17h50

Bonjour casefayere
merci pour ta rapidité et surtout ton efficacité
le problème est résolu

Faire defiler un texte dans un USF [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager