Bonjour,
Est-il possible d'intégrer dans une nouvelle barre de menu
à la fin des boutons La date du jour et l'heure.
Merci par avance
Peponne31
Bonjour,
Est-il possible d'intégrer dans une nouvelle barre de menu
à la fin des boutons La date du jour et l'heure.
Merci par avance
Peponne31
Bonjour,
Est-il possible d'intégrer dans une nouvelle barre de menu
à la fin des boutons La date du jour et l'heure.
Merci par avance
Peponne31
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :
... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
Bien vu. Manque juste un chrono...
Après mûre réflexion, Jac a écrit :... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
Bien vu. Manque juste un chrono...
Après mûre réflexion, Jac a écrit :
... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :
... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
Bien vu. Manque juste un chrono...
Après mûre réflexion, Jac a écrit :... lecture en vitesse, réponse à côté de la plaque...
Mais pour afficher sur mon écran la date et l'heure, j'ai pris l'habitude
d'afficher la barre des tâches sur 3 lignes. C'est sûr que sur un 22 pouces
en portait, il reste de la place...
Je vais essayer ta barre d'outils de ce pas.
michdenis vient de nous annoncer :... pour insérer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
Intérêt : ça fonctionne aussi sur les autres machines.
***Tu as déjà réussi à créer une barre d'outils personnalisée
en y insérant la date et l'heure de cette façon ??????????????
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
| ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
| Intrt : a fonctionne aussi sur les autres machines.
***Tu as dj russi crer une barre d'outils personnalise
en y insrant la date et l'heure de cette faon ??????????????
Met ceci dans un module standard :
'---------------------------------------
Sub CreateCustomCommandBar()
Dim MBar As CommandBar
Dim Stl As MsoButtonStyle
Stl = msoButtonCaption
On Error Resume Next
Application.CommandBars("Denis").Delete
Set MBar = Application.CommandBars.Add("Denis")
With MBar
.Visible = True
With .Controls.Add(msoControlPopup, , , , True)
.Style = Stl
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With .Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
'.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End With
End With
With .Controls.Add
.Style = Stl
.Caption = Date
End With
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
.Visible = True ' Affichage de la nouvelle commandbar
End With
Set MBar = Nothing
Heure_Début
End Sub
'---------------------------------------
Sub Heure_Début()
Application.OnTime Now + TimeValue("0:0:01"), "Heure"
End Sub
'--------------------------------------
Private Sub heure()
Application.CommandBars("Denis").Controls(3).Caption = _
Format(Now, "HH:MM:SS")
Heure_Début
End Sub
'---------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis,
Merci pour ton aide, dans un nouveau Module ça fonctionne mais je n'arrive
pas à l'intégrer dans la barre de menu que j'ai crééPeux-tu me corriger ?
Sub CreateCustomCommandBar()
' déclaration des variables
Dim cb As CommandBar, cbMenu As CommandBarPopup, cbButton As
CommandBarButton 'cbMenu As MsoControlCaption
DeleteCustomCommandBar ' supprime la barre de menu si elle existe
Dim MsoControlCaption
'création de la barre de menus
Set cb = Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
False, True)
'Set cb > Application.CommandBars.Add(ThisCommandBarName.Controls(2).Caption > Format(Now, "HH:MM:SS"))
Heure_Début
With cb
.Visible = True
.Protection = msoBarNoMove + msoBarNoCustomize
End With
' *********insertion sur la barre de menus d'un sous-menu Fichier
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
End With
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With cbMenu.Controls.Add(MsoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End Wit
' +++++++++++++++++ Ajout Date et Heure +++++++++++++++++++++++++
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = Date
.Tag = "MyTag"
End With
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
cb.Visible = True ' Affichage de la nouvelle commandbar
Set cbButton = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Merci
Peponne31
"michdenis" a écrit :
> | ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
> | Intrt : a fonctionne aussi sur les autres machines.
>
> ***Tu as dj russi crer une barre d'outils personnalise
> en y insrant la date et l'heure de cette faon ??????????????
>
>
>
>
>
Met ceci dans un module standard :
'---------------------------------------
Sub CreateCustomCommandBar()
Dim MBar As CommandBar
Dim Stl As MsoButtonStyle
Stl = msoButtonCaption
On Error Resume Next
Application.CommandBars("Denis").Delete
Set MBar = Application.CommandBars.Add("Denis")
With MBar
.Visible = True
With .Controls.Add(msoControlPopup, , , , True)
.Style = Stl
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With .Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
'.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End With
End With
With .Controls.Add
.Style = Stl
.Caption = Date
End With
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
.Visible = True ' Affichage de la nouvelle commandbar
End With
Set MBar = Nothing
Heure_Début
End Sub
'---------------------------------------
Sub Heure_Début()
Application.OnTime Now + TimeValue("0:0:01"), "Heure"
End Sub
'--------------------------------------
Private Sub heure()
Application.CommandBars("Denis").Controls(3).Caption = _
Format(Now, "HH:MM:SS")
Heure_Début
End Sub
'---------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 1BEB92B9-5448-4D5C-A3AC-8370CE86662E@microsoft.com...
Bonjour Michdenis,
Merci pour ton aide, dans un nouveau Module ça fonctionne mais je n'arrive
pas à l'intégrer dans la barre de menu que j'ai crééPeux-tu me corriger ?
Sub CreateCustomCommandBar()
' déclaration des variables
Dim cb As CommandBar, cbMenu As CommandBarPopup, cbButton As
CommandBarButton 'cbMenu As MsoControlCaption
DeleteCustomCommandBar ' supprime la barre de menu si elle existe
Dim MsoControlCaption
'création de la barre de menus
Set cb = Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
False, True)
'Set cb > Application.CommandBars.Add(ThisCommandBarName.Controls(2).Caption > Format(Now, "HH:MM:SS"))
Heure_Début
With cb
.Visible = True
.Protection = msoBarNoMove + msoBarNoCustomize
End With
' *********insertion sur la barre de menus d'un sous-menu Fichier
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
End With
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With cbMenu.Controls.Add(MsoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End Wit
' +++++++++++++++++ Ajout Date et Heure +++++++++++++++++++++++++
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = Date
.Tag = "MyTag"
End With
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
cb.Visible = True ' Affichage de la nouvelle commandbar
Set cbButton = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Merci
Peponne31
"michdenis" a écrit :
> | ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
> | Intrt : a fonctionne aussi sur les autres machines.
>
> ***Tu as dj russi crer une barre d'outils personnalise
> en y insrant la date et l'heure de cette faon ??????????????
>
>
>
>
>
Met ceci dans un module standard :
'---------------------------------------
Sub CreateCustomCommandBar()
Dim MBar As CommandBar
Dim Stl As MsoButtonStyle
Stl = msoButtonCaption
On Error Resume Next
Application.CommandBars("Denis").Delete
Set MBar = Application.CommandBars.Add("Denis")
With MBar
.Visible = True
With .Controls.Add(msoControlPopup, , , , True)
.Style = Stl
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With .Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
'.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End With
End With
With .Controls.Add
.Style = Stl
.Caption = Date
End With
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
.Visible = True ' Affichage de la nouvelle commandbar
End With
Set MBar = Nothing
Heure_Début
End Sub
'---------------------------------------
Sub Heure_Début()
Application.OnTime Now + TimeValue("0:0:01"), "Heure"
End Sub
'--------------------------------------
Private Sub heure()
Application.CommandBars("Denis").Controls(3).Caption = _
Format(Now, "HH:MM:SS")
Heure_Début
End Sub
'---------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis,
Merci pour ton aide, dans un nouveau Module ça fonctionne mais je n'arrive
pas à l'intégrer dans la barre de menu que j'ai crééPeux-tu me corriger ?
Sub CreateCustomCommandBar()
' déclaration des variables
Dim cb As CommandBar, cbMenu As CommandBarPopup, cbButton As
CommandBarButton 'cbMenu As MsoControlCaption
DeleteCustomCommandBar ' supprime la barre de menu si elle existe
Dim MsoControlCaption
'création de la barre de menus
Set cb = Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
False, True)
'Set cb > Application.CommandBars.Add(ThisCommandBarName.Controls(2).Caption > Format(Now, "HH:MM:SS"))
Heure_Début
With cb
.Visible = True
.Protection = msoBarNoMove + msoBarNoCustomize
End With
' *********insertion sur la barre de menus d'un sous-menu Fichier
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "Fichier" '<-- label du bouton
.Tag = "MyTag"
End With
' insertion dans le sous-menu Fichiers d'un premier bouton de commande
With cbMenu.Controls.Add(MsoControlButton, 1, , , True)
.Caption = "&Quitter Excel" '<-- label du bouton
.OnAction = ThisWorkbook.Name & "!Macro2" '<-- procédure à exécuter
End Wit
' +++++++++++++++++ Ajout Date et Heure +++++++++++++++++++++++++
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = Date
.Tag = "MyTag"
End With
Set cbMenu = cb.Controls.Add(MsoControlCaption, , , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = "Heure"
End With
cb.Visible = True ' Affichage de la nouvelle commandbar
Set cbButton = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Merci
Peponne31
"michdenis" a écrit :
> | ... pour insrer la date, il y a aussi ctrl+; et pour l'heure, ctrl+:
> | Intrt : a fonctionne aussi sur les autres machines.
>
> ***Tu as dj russi crer une barre d'outils personnalise
> en y insrant la date et l'heure de cette faon ??????????????
>
>
>
>
>