Date et heure sur la barre des titres UserForm

[maval]

Bonsoir

Est-il possible d'avoir la date et l'heure sur la barredes titres d'un userform

Merci d'avance

 

[maval]

Re : Date et heure sur la barre des titres UserForm

Bonjour David

Je te remercie mais la je n'arrive pas a te suivre. Si on prends le code à Mapomme et le miens et bien j'ai essayer ta formule et je ne suis pas arriver.......

Bonne journée

 

[Gelinotte]

Re : Date et heure sur la barre des titres UserForm

Bonjour,

Voici ce que j'en ai compris ...


Gelinotte

 

[maval]

Re : Date et heure sur la barre des titres UserForm

Salut Geli

Nickel sa fonctionne.
Bonne journée

 

[david84]

Re : Date et heure sur la barre des titres UserForm

Re
@maval :

Je te remercie mais la je n'arrive pas a te suivre. Si on prends le code à Mapomme et le miens et bien j'ai essayer ta formule et je ne suis pas arriver.......

Je ne t'ai pas proposé une formule mais simplement expliqué une manière de faire pour réorganiser les 2 codes.

@Gelinotte :
C'est bien ce à quoi je pensais.
Personnellement je remplacerais

Private Sub CommandButton1_Click()
   End
End Sub

par

Private Sub CommandButton1_Click()
   Unload Me
End Sub

ce qui évite chez moi le fait de ne pas pouvoir ouvrir à tous les coups le code placé dans le UserForm.
A+

 

[Gelinotte]

Re : Date et heure sur la barre des titres UserForm

Bonjour,

End par Unload Me >> good, c'est noté


Geli

 

[david84]

Re : Date et heure sur la barre des titres UserForm

Bonsoir,

Une autre manière de faire en passant par des API Windows supplémentaires :
- utilisation de SetTimer et KillTimer qui permettent de définir un Timer en lieu et place de OnTime et de le détruire à la fermeture du formulaire, et de la Sub TimerProc qui contient le code permettant de placer la date et l'heure dans le caption du formulaire (code de Chip Pearson)
- utilisation de GetLocalTime permettant de récupérer l'heure locale.

Les autres API étaient déjà utilisées dans la précédente proposition.

Les intérêts de passer par ces API :
- le timer utilisé via ces API et l'heure ramenée sont normalement plus précis
- l'heure n'est pas bloquée lorsque l'on bouge le formulaire
- chez moi pas d'effet de scintillement du curseur.

Reste toutefois à le tester plus avant.
A+

 

[mapomme]

Re : Date et heure sur la barre des titres UserForm

Bonjour Maval,

Vous pouvez aussi inhiber la fermeture via le menu système (c'est moins joli mais plus simple à coder).

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

 

[maval]

Re : Date et heure sur la barre des titres UserForm

Bonjour David, Mapomme,

Je vous remercie beaucoup de toutes votre aide et vous souhaite une très bonne journée

 

[Si...]

Re : Date et heure sur la barre des titres UserForm

salut

je ne comprends toujours pas l'intérêt de supprimer, ici, la croix ! Ajouter des contrôles multiplie les lignes de codes donc les risques d'erreurs.
Mais, Si... c'est pour l'esthétisme, autant supprimer le bandeau bleu. On peut formater de plus d'une façon un Label !

 

[david84]

Re : Date et heure sur la barre des titres UserForm

Bonjour,
@Si...

je ne comprends toujours pas l'intérêt de supprimer, ici, la croix ! Ajouter des contrôles multiplie les lignes de codes donc les risques d'erreurs.

D'accord avec toi sur le principe (je rejoins notamment mapomme quant à la solution qu'il a proposée) bien que cela puisse être utile et non seulement esthétique dans certains cas.

Concernant ton code, j'avais également pensé utiliser l'API GetTickCount qui fait le boulot mais le fait d'utiliser les API propres au timer permet notamment de ne pas bloquer le déroulement de l'heure lorsque l'on bouge le formulaire (de plus comme elles sont spécifiques à ce type de question autant en profiter).
Le problème de la suppression de la barre de titre telle que tu l'as proposée est qu'il faut alors prévoir un autre moyen pour déplacer le cas échéant le formulaire sur la feuille.

Ci-joint une proposition intégrant cette possibilité, toujours via l'utilisation d'API complémentaires.

Il va de soi que là, on est plus dans la recherche fondamentale (comme dirait l'ami MJ13) que dans le fonctionnel mais sait-on jamais !
Ceci-dit, je trouve ce fil intéressant, ne serait-ce que pour le fait d'étudier de plus près les API Windows (peut-être d'ailleurs que le thème des API mériterait l'ouverture d'une discussion particulière, peut-être d'ailleurs en existe-t-il une mais comme je ne suis pas très présent depuis quelques temps...).

La proposition jointe est (normalement) compatible sur les versions Office 32 et 64 bits.
A+

 

[laetitia90]

Re : Date et heure sur la barre des titres UserForm

bonjour tous
apporte pas grand chose au sujet

perso... suppression croix ,bandeau un peu contre ces trucs la coder la fermeture si clik sur croix

UserForm_QueryClose suffisant comme le dit l'ami mapomme

pour le reste bon travail de l'ami david

l'ami SI utilise une fonction

Private Declare Function GetTickCount Lib "Kernel32" () As Long

le code plus simple mais .....
beaucoup de ressource processeur ,memoire acceptable normal boucle do loop
si grosse macro dans user incidence au niveau durée

autrement on peut s'interesser a ShockwaveFlash aucune ligne de code

j'ai un exemple pour une feuille avec userform j'arrive pas a retrouver ranger ou ??? helas

 

[Si...]

Re : Date et heure sur la barre des titres UserForm

Salut

A David84
Désirant mieux comprendre, j’ai tripatouillé ton fichier.
Pour ceux qui sont intéressés, le premier fichier joint montre l’utilité de savoir ce que l’on a exactement.

A Laettia
inhiber la croix* procède de la même idée de refuser d’utiliser ce qu’on nous permet de faire.
Le second fichier donne une façon d’insérer un Flash dans un Usf.

*Je me contente de

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 Cancel = CloseMode = vbFormControlMenu
End Sub

 

[grisan29]

Re : Date et heure sur la barre des titres UserForm

bonjour Ma Pomme et le forum

erreur pas vu la 2ème page
Pascal