Texte défilant dans un USF

[Ilino]

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]

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

RE :

J'accepte la question, mais je ne la comprends pas :

Qu'entends-tu par mise à jour sans redémarrer la macro ? Que doit faire ce bouton ?

A te lire.

Cordialement.

 

[Ilino]

Re : Texte défilant dans un USF

Merci
si tu as remarquez dans la cellule A1 il y a des info ...si je modifiais les info de la cellule A1, il suffit de cliquer seulement sur le bouton « A Jour » pour réinitialiser l'affichage de USF sans le fermer ..est il possible

 

[Softmama]

Re : Texte défilant dans un USF

Bonjour Ilino, le fil, le forum,

En ajoutant une macro évènementielle sur la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "A1" Then Unload UserForm1: Call CommandButton1_Click
End Sub

cf. fichier joint

 

[Softmama]

Re : Texte défilant dans un USF

Re,

Sinon, sans fermer l'USF, et en plaçant les variables dans le module public :

Public LeTexte As String, LaCouleur As String, v As Long, s, t As Variant

avec cette macro évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "A1" Then LeTexte = Target: Call UserForm1.ParametresHtml
End Sub

 

[Gelinotte]

Re : Texte défilant dans un USF

Bonjour,

Très intéressant

G

 

[Ilino]

Re : Texte défilant dans un USF

Re,

Sinon, sans fermer l'USF, et en plaçant les variables dans le module public :

Public LeTexte As String, LaCouleur As String, v As Long, s, t As Variant

avec cette macro évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "A1" Then LeTexte = Target: Call UserForm1.ParametresHtml
End Sub

Bonsoir tous le monde et désolé pour ce retard j'avais un pblm de connexion avec mon PC
de toute façon je vous remercie pour votre patiente et votre Compréhensif .... mission accomplie
RAMO ILINO

 

[david84]

Re : Texte défilant dans un USF

Re
merci à Jacques et Laetitia pour les explications.
Je ne connaissais pas le langage HTML donc je ne risquais pas de comprendre. Maintenant, c'est plus clair.
Pour ceux que cela intéresse, un lien (entre autres) qui permet d'en comprendre les grandes lignes.
A+

 

[lolo57]

Re : Texte défilant dans un USF

Bonjour

Je me demandais si c possible de mettre comme texte comme sur 1 calendrier (nous fêtons la ST Eugénie) par exemple ?

 

[laetitia90]

Re : Texte défilant dans un USF

rebonjour tous🙂
sans pb...il faut seulement le calendrier apres avec now facile a construire

 

[nyko283]

Re : Texte défilant dans un USF

Bonjour à tous,

Je me permet de m'insérer dans la discussion( que je suivais attentivement), afin de vous proposer mon calendrier.

à adapter suivant le cas.

 

[laetitia90]

Re : Texte défilant dans un USF

rebonjour tous 🙂🙂🙂🙂🙂🙂

nicolas trop bien ton calendrier je mets de côte🙂🙂🙂🙂

 

[JCGL]

Re : Texte défilant dans un USF

Bonjour à tous,

Bravo Nicolas...
Joli Travail.

A + à tous