Faire défiler texte dans Label

dudulleray -  
 duduleray -
Bonjour a toutes et tous , forum



Comment svp faire défiler dans un UserForm1.Frame4 un texte dans un Label ou dans un CommandButton

Height=19 Width=96

Pour les mots =soit en un mot "Automatique"
ou bien en deux mots "Sélection Cellule"

Une petite macro VBA que je pourrai appeler quand besoin

Merci a vous et de votre temps, excellent Dimanche a vous

Cdlt Ray
A voir également:

2 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

tu actives le contrôle supplémentaire "Navigateur Web microsoft" avec la boite à outil de l'userform; tu le dessines sur l'usf aux dimensions que tu veux (webBrowser-propriétés)

Le code ( à partir d'une Démo Michelxld-Silkyroad)
Private Sub UserForm_Initialize()   
    GadgetHtml "forum CCM: Un petit look style Broadway avec Excel...", "#000032"   
End Sub   
    

Private Sub GadgetHtml(Texto As String, Couleur As String)   
    Me.WebBrowser1.Navigate _   
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _   
        & Couleur & " size='4' face='Forte'>" & _   
        "<marquee scrollAmount=4>" & Texto & "</marquee></font></body></html>"   
End Sub   

marquee scrollAmount: vitesse de défilement
size: taille du texte
face: police
pour la couleur consultes un topo Html

Michel
0
duduleray
 
Salut Michel

merci de ta réponse mais je ne programme pas en html et je n'ai rien compris au code que tu

m'envoie, une petit code en VBA

Merci tout de mème d'avoir lu mon post

bon dimanche a toi

Cdlt
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bon

Je t'ai envoyé un code VBA qui utilise le WebBrowser, utilisation classique en VBA :-/
Toute prog demande un minimum d'effort perso !

démo (xl2007)
https://www.cjoint.com/?3DplaihHIiQ
ca marche aussi avec <Xl2007

J'ai encore perdu mon temps ce matin sur ce forum
0
duduleray
 
Re Michel

je ne connaissai pas de cette manière "code VBA qui utilise le WebBrowser, utilisation classique en VBA "

j'ai essayer ta démo effectivement ca fonctionne bien merci

PS: rien a voir avec le minimun d'effort perso, si des choses vous semble logique ce ne l'ai pas forcément pour tout le monde, surtout que tout le monde n'a pas fait forcément des études, ce qui est mon cas, ce qui explique que ce n'ai pas facile pour moi malgré mes efforts.

Bon Dimanche et encore merci pour le code

Cdlt Ray
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour Michel,
D'autant plus qu'il a la mémoire courte, je dirais même Trèèèèès courte.
A voir
A+
0
duduleray
 
salut lermite222

tout a fait raison sauf que clignoter et faire défiler ce n'ai pas pareil

j'ai essayer pleins de code trouver sur le net

et ca marche pas

voila
merci bon dimanche
Ray
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour Lermite,

Ok, ca confirme
surtout que l'utilité des clignotants, défilements est loin d'être prouvée et ressemble plutôt à de la frime!... on confond Excel et Las Vegas

Bon Dimanche et à bientôt pour de nouvelles aventures !!! :o)
0