Discussion :

[CIBOOX]

bonjour,
j' ai quelque petites questions au sujet de la barre en tete de l'userform
j'ai un userform nomme grille
j'aimerai pouvoir afficher dans son entete le nom du userform ainsi que la date et l'heure
pour cela j'utilise dans mon userform initialize le code suivant

Code :

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

grille.caption="grille" & now

au lancement du userform j'ai en entete

grille 23/02/07 10:30:57

j'aurai voulu avoir

grille le vendredi 23 fevrier 2007 10:30:58

de plus l'heure ne tourne pas
l'affichage ne suis pas

encore une petite question : peut le faire defiler de gauche a droite? ou l'animer

[choucks]

salut
pour avoir grille le vendredi 23 fevrier 2007 10:30:58

Code :

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

grille.caption="grille le " & Format(Now, "dddd d mmmm yyyy h:mm:s")

[ouskel'n'or]

Je reviens sur l'heure qui tourne (j'avais ça dans un coin) et parce que je suis bien gentil...
Tu mets la macro suivante dans un module standard

Code :

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

1
2
3
4
5
6
Sub JeFaisTourner()
UserForm1.Caption = Format(Now, "dddd dd mmmm yyyy ") & Time
Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"
UserForm1.Repaint
DoEvents
End Sub

et dans Userform_initialise

Code :

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

1
2
3
Private Sub UserForm_Initialize()
JeFaisTourner
End Sub

Ceci dit, tu devras arrêter la macro quand tu quitteras l'userform sinon, elle se poursuivra tant que tu n'as pas quitté Excel.
Je te laisse chercher le moyen très simple
A+

[CIBOOX]

merci choucks ca marche nickel !!!!!
comment faire pour que la date se mette tout a droite pour avoir

grille le vendredi 23fevrier 2007 11:56 et la croix fermer

[ouskel'n'or]

L'userform n'a pas la propriété "TextAlign", tu vas devoir bricoler en ajoutant des espaces ou des tabulations

[choucks]

merci choucks ca marche nickel !!!!!

oh de rien, c'est le cas de le dire je n'ai rien fait

J'aurais aimé être l'auteur de cette astuce, mais ouskel'n'or est plus fort que moi !

C'est lui qu'il faut remercier

a+

[CIBOOX]

merci a vous deux ouskel et choucks

[CIBOOX]

bonjour ouskel
j'avais pas lu ton code
il est sympa lorsque je l'applique sur mon userform( qui contient 46 combobox et 20 textbox) j'ai un nouveau sapin de noel ça scintille de partout

j'ai modifié la routine a une minute pour ralentir un peu les effets speciaux

c'est deja ça ..
pour arreter cette macro j'utilise le bouton arreter avec pour code

Code :

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

Unload grille

es ce que j'ai bon ?
c'etait ça le code a chercher tout seul ou ya une autre manip ???

[ouskel'n'or]

Non, ta macro est indépendante de l'userform et elle continue à courir toute seule. Le moyen : Tu déclares un boolean en Public dans le module contenant la macro

Code :

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

Public Quitter as boolean

Tu conditionnes l'exécution de la macro en testant le boolean

Code :

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

If not Quitter then Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"

et tu ajoutes cette ligne avant la fermeture de l'userform

Code :

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

1
2
Quitter = True
Unload grille

Comme ça, tu seras sûr que ta macro s'arrêtera

es ce que j'ai bon ?

Non, t'étais même pas tiède

[CIBOOX]

c'est resolu o grand oiseaux du nord

Non, t'étais même pas tiède

je l'aurai un jour je l'aurai...

[Arrow_V]

Salut à tous,

est-ce que quelqu'un peut me dire où placer cette ligne svp :

Code :

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

If not Quitter then Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"

?

Merci pour votre aide.

[fring]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub JeFaisTourner()
UserForm1.Caption = Format(Now, "dddd dd mmmm yyyy ") & Time
'Elle doit se placer à la place de la ligne ci-dessous
Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"
UserForm1.Repaint
DoEvents
End Sub