Discussion :

[pierrot132]

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

[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...

[pierrot132]

Code :

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

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 ?

[pierrot132]

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

[ouskel'n'or]

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

Code :

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
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