Discussion :

[NEC14]

Bonjour à tous,

Dans ma barre de menus personnalisés, la date s'affiche à l'aide du code ci-dessous. J'aimerai ajouter l'heure (demande des utilisateurs) comment puis-je procéder ?

Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
 
'insertion sur la barre de menus d'une zone de texte avec la date du jour
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
    .style = msoComboLabel
    .Caption = "Nous sommes le :" '<-----texte du label
    .Text = Date '<----- affichage de la date du jour
    .Enabled = False '<----- la date est non modifiable
End With

J'ai fait ceci pour l'heure, mais elle ne s'affiche pas dans le textBox

Code :

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

1
2
3
4
5
6
7
8
9
 
'insertion sur la barre de menus d'une zone de texte avec l'heure
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
    .style = msoComboLabel
    .Caption = "Il est :" '<-----texte du label
    .Text = Heure '<----- affichage de l'heure
    .Enabled = False '<----- l'heure est non modifiable
End With

[Godzestla]

Bonjour,
je doute que cela soit possible sans usine à gaz, car ta barre perso pour la date n'a pas besoin d'être mise à jour mais uniquement initialisée, alors que l'heure.... c'est autrechose.

Ils sont un peu "exigeants" tes utilisateurs, vu qu'en Windows, l'heure est plutôt visible non ?

[Pierre Fauconnier]

Salut

Code :

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

.Text = Now()

Eventuellement avec Format pour l'adapter à ta sauce

Code :

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

.Text = format(now(),"dd/mm/yy hh:mm")

Il faut toutefois garder à l'esprit que ce n'est pas une horloge, et qu'il faut donc rafraîchir (réaffecter la valeur au texte du bouton) pour avoir l'heure courante, ce qui va être coûteux en ressource...

[NEC14]

Bonjour Pierre,

Merci pour ta réponse. Apparement cela à l'air assez compliquer.
Le but (pour ma hiérarchie) était de savoir combien de temps en moyenne un agent peut mettre pour enregister une demande ou tout autre travail. En clair combien de temps le fichier est resté ouvert pour un agent lambda. Du flicage en fait.
Bon je vais dire que c'est trop compliqué.
Encore merci

[Pierre Fauconnier]

Je ne vois pas bien comment ta hiérarchie récupérerait après coup le texte de la zone de texte avant et après modification de l'heure pour déterminer la durée d'une opération... Cela me semble une voie bien tortueuse.

Si c'est pour mesurer le temps de réalisation d'une action, tu peux utiliser une variable de type Date que tu initialises au moment du clic sur le bouton et que tu compares avec la valeur de Now() en fin de process...

Code :

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

1
2
3
4
5
6
Dim Debut as date
Dim Duree as date
debut = now()
...
...
duree=now()-debut

[fring]

Bonjour à tous,

En dehors du fait que les réponses ci-dessus de mes éminents collègues sont entièrement judicieuses, juste parce que l'acrobatie m'amusait , voici un petit bout de code affichant l'heure dans la barre de menu

Code dans le module ThisWorkbook :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Creation_MaBarre
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sup_MaBarre
End Sub

Code dans un module Standard :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Dim Cbar As CommandBar, Ctxt As CommandBarComboBox
 
Sub Creation_MaBarre()
    Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
    Set Ctxt = Cbar.Controls.Add(msoControlEdit)
    With Ctxt
        .Style = msoComboLabel
        .Caption = "Heure :"
    End With
    Cbar.Visible = True
    SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
End Sub
 
Sub UpDateTime(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Ctxt.Text = Format(Time, "HH:MM:SS")
End Sub
 
Sub Sup_MaBarre()
    KillTimer Application.hWnd, 0
    CommandBars("MaBarre").Delete
End Sub

[Godzestla]

Chouette la barre.

[NEC14]

Bonjour à tous,

Je reviens un instant sur ce post pour vous demander si il est possible de mettre cette barre de menus à côté de celle qui est déjà en place.
Pour le moment elle se place en dessous.

Une barre est nommée "MaBarre" et l'autre "MaBarre2".
Merci par avance

[fring]

Tu peux faire comme ceci :

Code :

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

CommandBars("MaBarre").RowIndex = CommandBars("MaBarre2").RowIndex

[NEC14]

Bonjour à tous, Bonjour fring,

Où dois-je mettre ce code ? Est-ce dans This WorkBook ou dans un des modèles des barres ?
Merci par avance

[Godzestla]

Bonjour Nec14,

je dirais en changeant le code d'origine comme ceci, en supposant que Mabarre2 est déjà générée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Creation_MaBarre()
    Set Cbar = CommandBars.Add(name:="MaBarre", position:=msoBarTop, Temporary:=True)
    Set Ctxt = Cbar.Controls.Add(msoControlEdit)
    With Ctxt
        .Style = msoComboLabel
        .Caption = "Heure :"
    End With
    CommandBars("MaBarre").RowIndex = CommandBars("MaBarre2").RowIndex
    Cbar.Visible = True
    SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
End Sub

[NEC14]

Bonjour Godzestla,

Super ça marche . Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Creation_MaBarre()
    Set Cbar2 = CommandBars.Add(Name:="MaBarres", Position:=msoBarTop, Temporary:=True)
    Set Ctxt2 = Cbar2.Controls.Add(msoControlEdit)
    With Ctxt2
        .style = msoComboLabel
        .Caption = "Il est :"
    End With
    CommandBars("MaBarres").RowIndex = CommandBars("MaBarre").RowIndex
    Cbar2.Visible = True
    SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
End Sub