MODIFIER VOTRE BARRE DE MENU EXCEL menu, excel, barre, outil, personnaliser, Source N°35378

Information sur la source

Catégorie :VBA Classé sous : menu, excel, barre, outil, personnaliser Niveau : Débutant Date de création : 02/01/2006 Vu : 15 484

Auteur : chapata

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Ici, ma deuxieme source en VBA.
Il vous permet d'ajouter un nouveau menu à votre barre de menu excel (surement apllicable à Access et toute appli microsoft) avec des sous menus ... qui sont directement associés à vos programme.
Pas de Zip ... juste du code ... copier coller.

Source

'dans ThisWoorkBook ajouter ...
Private Sub Workbook_Open()
Créer_Menu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Effacer_Menu
End Sub
'dans un nouveau module ajouter ...
Function Créer_Menu()
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then Exit Function
Next
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Mon Menu Perso"
With .Controls.Add(msoControlPopup)
.Caption = "Menu 1"
With .Controls.Add(msoControlButton)
.Caption = "Sous Menu 1.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 3.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
'2e Bouton Saisie
With .Controls.Add(msoControlPopup)
.Caption = "Menu 2"
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.2"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
'3e Boutton
With .Controls.Add(msoControlButton)
.Caption = "Menu 3"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
MsgBox "Veuillez lancer les programmes dans la barre de Menu.", vbInformation, "Votre Menu Perso"
End Function
'******************************************************************
Function Effacer_Menu()
Next_Z:
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then
CommandBars(1).Controls("Mon Menu Perso").Delete
GoTo Next_Z
End If
Next
'****************************************************************
End Function

'dans ThisWoorkBook ajouter ...
Private Sub Workbook_Open()
Créer_Menu
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Effacer_Menu
End Sub

'dans un nouveau module ajouter ...
Function Créer_Menu()

For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then Exit Function
Next

With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
    .Caption = "Mon Menu Perso"

    With .Controls.Add(msoControlPopup)
        .Caption = "Menu 1"
        With .Controls.Add(msoControlButton)
            .Caption = "Sous Menu 1.1"
            .OnAction = ""'entre les guillemets : nom de votre procédure
        End With
        With .Controls.Add(msoControlButton)
            .Caption = "Sous menu 2.1"
            .OnAction = ""'entre les guillemets : nom de votre procédure
        End With
        With .Controls.Add(msoControlButton)
            .Caption = "Sous menu 3.1"
            .OnAction = ""'entre les guillemets : nom de votre procédure
        End With
    End With
    '2e Bouton Saisie 
    With .Controls.Add(msoControlPopup)
        .Caption = "Menu 2"
        With .Controls.Add(msoControlButton)
            .Caption = "Sous menu 2.1"
            .OnAction = ""'entre les guillemets : nom de votre procédure
        End With
        With .Controls.Add(msoControlButton)
            .Caption = "Sous menu 2.2"
            .OnAction = ""'entre les guillemets : nom de votre procédure
        End With
    End With
    '3e Boutton 
    With .Controls.Add(msoControlButton)
        .Caption = "Menu 3"
        .OnAction = ""'entre les guillemets : nom de votre procédure
    End With
        
End With
MsgBox "Veuillez lancer les programmes dans la barre de Menu.", vbInformation, "Votre Menu Perso"
End Function

'******************************************************************
Function Effacer_Menu()

Next_Z:
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then
    CommandBars(1).Controls("Mon Menu Perso").Delete
    GoTo Next_Z
End If
Next

'****************************************************************



End Function

Conclusion

Voila ... c'est pas grand chose ... mais cela pourra servir à quelques personnes ... enfin j'èspere (lol)

Je n'ai pas essayer, mais cela doit etre possible sous toutes les applis microsoft

Bonne Prog

Sources du même auteur

Toutes les sources de chapata

Sources de la même categorie

Toutes les sources de la catégorie VBA

Sources en rapport avec celle ci

Commentaires

Commentaire de cs_66 le 09/02/2006 12:19:34

Merci Chapata - Je me suis inspiré de tes lignes pour simplifier mon code et ça marche très bien (sous Excel) !!!
Je n'ai pas l'habitude d'utiliser "FUNCTION - END FUNCTION". Comme je vois que tu t'en sers, pourrais-tu me renseigner succintement sur son avantage, par rapport à "SUB - END SUB".
Merci encore et à +
CS
Commentaire de jpsonza le 23/03/2006 10:15:34

Ta question est un peu biz, mais suffit d'aller dans Insertion/Procedure de ton code pour voir les choix possible

Sub
bla bla bla
End Sub

Function
bla bla bla
End function
Commentaire de GMY le 19/04/2006 14:09:04

Function et Sub ont des usages différents.

Sub est une procédure, elle exécute du code et agit sur les variables en qui sont en entrée/sortie

Function est une fonction, c'est une procédure qui peut renvoyer une valeur, la syntawe est :
Function MaFonction(MesParametres) as TypeRenvoyé
...code
MaFonction = UneValeur 'Du même type que le type renvoyé
End Function

J'utilise souvent les fonctions pour retourner un booléen si la fonction c'est bien ou mal passé, ou alors pour retourner une valeur calculée à partir des paramètres.
Commentaire de cs_66 le 20/04/2006 09:09:49

C'est ce que je voulais savoir - merci pour l'explication et bonne continuation à tous.
Salut.
Commentaire de Djibril2 le 23/05/2006 10:52:21

C'est très clair, Merci !

Est-il possible d'ajouter des Info-Bulles ? .ControlTipText
ou encore un message dans la barre de tache ? .StatusBar

Merci
Greg
Commentaire de chapata le 23/05/2006 11:09:56

Salut ...
des info bulles dans la barre de menu... je ne crois pas . Mais cela ne coute rien d'essayer

Pour ce qui est du message dans la barre du stattu ... tout est possible !
tu peux la modifier à chaque fois que tu effectue une action avec une macro.
je n'ai plus le code sous les yeux, mais il me semble que c'est un truc dans ce genre :

Application.StatusBar = "Mon nouveau Statu ... Coucou ..." 'Changer le statu
Application.StatusBar = False ' réinitialiser le statu
Application.DisplayStatusBar = False 'Cache la barre de statu
Application.DisplayStatusBar = True 'affiche la barre de statu

Chapat'

Ajouter un commentaire

Discussions en rapport avec ce code source

menu et barre outil sous excel par jraynald

enleve toutes les barres d'outil par oliv76n

Barre de menu "comme dans Excel" par Duke Nukem

excel rubrique du menu disparu par jraynald

Supprimer une barre d'outil par le code par florantanplan

Excel sous Citrix par Viviane

Iconbes personnalisées dans une barre d'outil sous excel par Chouchensb

Divers Pb Excel VBA par calice23

désactiverla barre de menu standard dans excel par Daydayer

Personnalisation barre d'outil sous Excel par btou81