Au secours Plus de barres de commandes

Version imprimable

14/10/2007, 12h16
pierrot132

Au secours Plus de barres de commandes

Bonjour à tous.

J'ai eu le malheur d'utiliser ces lignes de commandes suivantes et maintenant, je n'ai plus de barre de commande, impossible de les faire réapparaitre, impossible donc d'accéder au VBA,même en ouvrant un autre classeur excel, je n'ai toujours les barres, bref c'est la cata.

Comment puis-je faire pour revenir à ma config de départ.

Merci d'avance pour vos réponse.

Pierrot
14/10/2007, 12h25
Pierre Fauconnier

Bonjour

Ce serait plus simple avec les lignes de commande dont tu parles mais que tu ne nous montres pas...

Pour accéder à VBA, Alt+F11...
14/10/2007, 12h31
pierrot132
Code:

1 2 3 4 Dim CmdB As CommandBar For Each CmdB In Application.CommandBars If CmdB.Type <> msoBarTypeMenuBar Then CmdB.Enabled = False Next CmdB
Désolé, voici les lignes de commande.
Grâce à ALT+F11, j'ai pu remédier à mon problème.
Cependant, je voudrais savoir une chose. J'ai créer une barre de commande pour permettre à l'utilisateur d'utiliser correctement mon application.
Le problème est que je n'arrive pas à effacer correctement les barres de commandes et à faire afficher la mienne.

Quelle méthode dois-je utiliser ?
14/10/2007, 14h12
pierrot132

Merci Pierre.
J'ai résolu mon pb en cherchant d'autres astuces sur le forum.

Ton code est correct pour masquer les barres... mais ça, tu le sais :mouarf:
Pour le reste, je crois tout expliquer dans cet exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub CommandBarreCréerAvecBoutonEtMenu()
Dim LaBarre As CommandBar
Dim LeBouton
Dim MonMenu
 
'Pour créer une barre de commande
'1 => affiche la barre en haut, true => barre provisoire
Application.CommandBars.Add "Cémabarre", 1, 0, True
 
'pour ajouter un bouton tout seul
Set MonControl = CommandBars("Cémabarre").Controls _
    .Add(Type:=msoControlPopup)
    With MonControl
        .Caption = "Afficher ma photo"
        .OnAction = "ÇaCestMoi"
    End With
 
'pour ajouter un menu
Set LeBouton = CommandBars("Cémabarre").Controls _
    .Add(Type:=msoControlPopup)
 
    'Pour ajouter deux commande au menu
    With LeBouton
        .Caption = "Affiche un menu"
        Set MonMenu = LeBouton.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe Dépenses"
                .OnAction = "BarregrapheDépenses"
            End With
        Set MonMenu = Nothing
 
        Set MonMenu = LeBouton.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert Dépenses"
                .OnAction = "CamembertDépenses"
            End With
        Set MonMenu = Nothing
    End With
    Set LeBouton = Nothing
    Set MonControl = Nothing
 
    'Pour afficher la barre de commande
    Application.CommandBars("Cémabarre").Visible = True
 
Exit Sub 'Pour eviter de la supprimer
    'Pour supprimer ta barre
    Application.CommandBars("Cémabarre").Delete
 
    'Pour la masquer
    Application.CommandBars("Cémabarre").Visible = False

Bonne journée

Edit
Code complété de la suppression