Texte défilant dans un USF

Ilino · 4 Février 2012

Forum Bonsoir ;

Apres avoir terminé ma première macro (bien sûre grâce a vous)😀 maintenant j’ai voulu insérer cette application a un USF mais …..🙁 Est –il possible de mettre un textbox roulant?😕
Ci-joint le fichier

Merci et bon week-end

Pour plus d’éclaircissement, Je suis et je resterai tjr a votre disposition

RAMO ILINO

Papou-net · 5 Février 2012

Re : Texte défilant dans un USF

Bonsoir Ilino,

Ci-joint copie de ton fichier modifié.

Cliques sur le bouton "Demo UF" pour lancer. Pour mettre fin à la macro, cliquer sur le bouton d'arrêt de l'éditeur VBA.

Bonne nuit.

Cordialement.

Ilino · 5 Février 2012

Re : Texte défilant dans un USF

Papou-net à dit:
Bonsoir Ilino,

Ci-joint copie de ton fichier modifié.

Cliques sur le bouton "Demo UF" pour lancer. Pour mettre fin à la macro, cliquer sur le bouton d'arrêt de l'éditeur VBA.

Bonne nuit.

Cordialement.

FORUM Bonjour, PAPOU Bonjour
Super … Encore une fois, deux fois, mille fois Un grand merci PAPOU c’est ça ce que je cherche effectivement tu es le meilleur et tu es mon sauveur 😎
Je vais l’adapter encore une fois a mon programme
😱
Bonne nuit et bon week-end

laetitia90 · 5 Février 2012

Re : Texte défilant dans un USF

bonjour tous
peut être sympa utiliser un WebBrowser au niveau ressource systeme acceptable!!

laetitia90 · 5 Février 2012

Re : Texte défilant dans un USF

re,🙂🙂🙂
un exemple

Papou-net · 5 Février 2012

Re : Texte défilant dans un USF

Bonjour laetitia,

Simple, rapide, efficace, même si je n'ai pas tout compris (mais ça viendra sûrement) !

De plus, le défilement est plus fluide.

Cordialement.

david84 · 5 Février 2012

Re : Texte défilant dans un USF

Bonjour tout le monde,

@laetitia🙂 : je suis comme pascal🙂, je n'ai pas tout compris, et comme j'aime bien comprendre (tant qu'à faire) j'aimerais que tu nous explique un peu plus l'idée : un WebBrowser pour quoi faire ? Si je comprends bien un WebBrowser est un navigateur Web mais là je n'ai pas l'impression que tu navigues sur le Web...
Donc, cela te sert à quoi au juste ? Quel en est l'intérêt ?

D'autre part, pourrais-tu expliquer les étapes de la Sub ParametresHtml ("comme si j'avais quatre ans" comme le dit si bien Denzel Washington dans Philadelphia 🙄) ?

Code:

Sub ParametresHtml()
WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & _
" size='5' face='arial'><body topmargin='0'>" & _
"<marquee scrollamount=" & v & ">" & LeTexte & "</marquee></font></body><center></html>"
End Sub

A+

BOISGONTIER · 5 Février 2012

Re : Texte défilant dans un USF

Bonjour,

>Quel en est l'intérêt ?

Utiliser les propriétés du HTML.
Sur cet exemple, la balise <Marquee> (non standard-propriétaire Microsoft) permet de faire défiler un message.

Sans le composant WebBrowser, le code serait le suivant:

Code:

Private Sub UserForm_Initialize()
Me.Label1.Caption = "Le message qui défile pendant un temps donné ..."
End Sub

Private Sub UserForm_Activate()
  n = Len(Me.Label1.Caption) * 2
  For i = 1 To n
    Me.Label1.Caption = Right(Me.Label1.Caption, Len(Me.Label1.Caption) - 1) & Left(Me.Label1.Caption, 1)
    w = 0.2
    temp = Timer
     Do While Timer < temp + w
       DoEvents
    Loop
  Next i
End Sub

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

JB

laetitia90 · 5 Février 2012

Re : Texte défilant dans un USF

re bonjour tous🙂🙂🙂🙂🙂
pour l'ami papou & david 🙂🙂
tout simplement vba reconnait le language html c'est pour cela que je prends le composant webbrower qu'on retrouve en autres dans vb6 ect...
la structure du language un peu chia... mais interessante </body>=corps ect ...voir sur google le principe
avantage pas trop de ressource system on peut travailler sur un user sans trop de pb...le message va defiler sans pb.. par contre sur les trop grosses macros qui prennent beaucoup de ressources le message risque de "figer" excel beaucoup de mal a faire 2 choses en meme temps

dans ParametresHtml que je call que dit le code je definis tout les parametres color format,size vitesse de deroulement ect
dans l'exemple la variable v=6 definis la vitesse de defilement on peut tous changer ect ...on peut faire clignoter blink ect...
dans le zip je mets une tempo.... plus sur feuil 2 les codes couleurs pour adapter
en complement on peut bien sur charger une page web mettre un gif animee sympa🙂🙂

ps 😱ups bonjour jb

Ilino · 5 Février 2012

Re : Texte défilant dans un USF

Bonjour tous le monde😱
je n'ai rien a dire ......un grand et gros Merci laetitia
Si vous permettez de poser qlq question ?
1 comment faire pour laisser USF permanant sur la feuille?
😕😱merci

laetitia90 · 5 Février 2012

Re : Texte défilant dans un USF

re,tous simplement tu supprime le code dans activate de l' user

Private Sub UserForm_Activate()
s = Timer: t = 10 'temps en secondes a adapter
Do While Timer < s + t: DoEvents: Loop
Unload Me
End Sub

je disparais plus le temps🙂

Ilino · 5 Février 2012

Re : Texte défilant dans un USF

salut laetitia
Merci pour la reponse rapide , mais peut etre j'ai mal exprimé mon souci...
est ce qu'il possible de travailler sur la feuille et USF permanant?
merci

Papou-net · 5 Février 2012

Re : Texte défilant dans un USF

Ilino à dit:
salut laetitia
Merci pour la reponse rapide , mais peut etre j'ai mal exprimé mon souci...
est ce qu'il possible de travailler sur la feuille et USF permanant?
merci

RE : bonsoir à tous,

Tu règles la propriété ShowModal de l'Userform à False, ou bien tu modifies la ligne d'affichage :

Code:

UserForm1.Show 0

Cordialement.

Ilino · 5 Février 2012

Re : Texte défilant dans un USF

Forum BONSOIR, PAPOU BONSOIR
Merci ça fonctiionne tres bien
ET MERCI POUR TOUS LE MONDE ET BON DEBUT DE SEMAINE
RAMO ILINO

Ilino · 5 Février 2012

Re : Texte défilant dans un USF

Salut PAPOU
Autre question si vous acceptez
Comment faire activer le bouton de Mise a jour (voir l'exmple ci joint) sans redémarrer la macro ?
Ci-joint l’exemple
merci

Effectuez une recherche sur Excel Downloads...

Texte défilant dans un USF

Ilino

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

laetitia90

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Nous accordons de l'importance à votre vie privée