Rapport de message :*
 

Re: bouton macro

Titre du sujet : Re: bouton macro
par JCGL le 06/02/2008 21:37:52

Re,

Il nous faudrait un peu plus d'explications pour pouvoir t'aider efficacement.

Pour créer ton "bouton" à l'ouverture et le supprimer à la fermeture :
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("JourSemaine").Delete
On Error GoTo 0
End Sub

Private Sub Workbook_Open()
Dim CB As CommandBar
Dim CBB As CommandBarButton
Dim Feuille
Dim Onglet
Application.ScreenUpdating = False

Feuille = Array("Récapitulatif", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")

Set CB = Application.CommandBars.Add
    With CB
        .Name = "JourSemaine"
        .Position = msoBarTop
        .Visible = True
   For Each Onglet In Feuille
            Set CBB = CB.Controls.Add(Type:=msoControlButton)
                With CBB
                    .Caption = Onglet
                    .Style = msoButtonIconAndCaption
                    .FaceId = 941
                    .Visible = True
                    .OnAction = "Voir"
                End With
        Next Onglet
    End With

Sheets("Récapitulatif").Activate
Application.ScreenUpdating = True
End Sub


Ceci est un exemple que tu trouveras mis en application dans le fichier joint.
Le demandeur souhaitait une BO (Barre d'Outils) parce qu'il souhaitait masquer les onglets (pourquoi ??)
Un clique sur le jour de la BO active la feuille souhaitée (par le OnAction = "Voir".
J'en profite pour signaler que la fonction "Prem" est une adaptation du code de mon ami Pierre-Jean sur XLD

Il ne te reste qu'à nous dire ce que tu souhaites et de déposer un fichier avec ton code macro

Au plaisir de te lire