[vba excel] barre en tete userform a jour

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:

---

grille.caption="grille" & now

---

au lancement du userform j'ai en entete

Citation:

---

grille 23/02/07 10:30:57

---

j'aurai voulu avoir

Citation:

---

grille le vendredi 23 fevrier 2007 10:30:58

---

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

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

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

Code:

---

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

---

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:

---

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:

---

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. :mouarf:
Je te laisse chercher le moyen très simple ;)
A+

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

Citation:

---

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

---

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

Citation:

---

Envoyé par CIBOOX

merci choucks ca marche nickel !!!!!

---

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

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+

merci a vous deux ouskel et choucks

:chin: bonjour ouskel
j'avais pas lu ton code
il est sympa :oops: 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 :alerte:

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

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

Code:

---

Unload grille

---

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

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:

---

Public Quitter as boolean

---

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

Code:

---

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

---

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

Code:

---

1 2	Quitter = True Unload grille

---

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

Citation:

---

es ce que j'ai bon ?

---

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

c'est resolu o grand oiseaux du nord :rire:

Citation:

---

Envoyé par ouskel'n'or

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

---

je l'aurai un jour je l'aurai...:traine:


:coucou:

Salut à tous,

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

Code:

---

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

---

?

Merci pour votre aide.

Bonjour,

Code:

---

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

---