Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Barre d'outils supprimée après avoir servi

Barre d'outils supprimée après avoir servi

5 réponses
Avatar
Claire
Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils avec
un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonsoir Claire,

Application.CommandBard("NomDeLaBarre").delete


Salutations!


"Claire" a écrit dans le message de news: %
Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils avec
un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire
Avatar
Claire
Bonjour Michdenis,

Je sais comment la supprimer, mais je voudrais que cette barre soit
supprimée suite à son utilisation sans que j'aie à intervenir. Le bouton de
cette barre insère des nouvelles lignes.

Claire

"michdenis" a écrit dans le message de
news:
Bonsoir Claire,

Application.CommandBard("NomDeLaBarre").delete


Salutations!


"Claire" a écrit dans le message de news:
%

Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils avec
un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire





Avatar
LeSteph
Bonsoir Claire,
Essaie d'ajouter la ligne proposée par MichDenis
à la fin de la procèdure utilisée par le bouton en question..
leSteph
"Claire" a écrit dans le message de news:

Bonjour Michdenis,

Je sais comment la supprimer, mais je voudrais que cette barre soit
supprimée suite à son utilisation sans que j'aie à intervenir. Le bouton
de
cette barre insère des nouvelles lignes.

Claire

"michdenis" a écrit dans le message de
news:
Bonsoir Claire,

Application.CommandBard("NomDeLaBarre").delete


Salutations!


"Claire" a écrit dans le message de news:
%

Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils
avec
un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire









Avatar
michdenis
Bonsoir Claire,

Dans la macro qui est appelé par le bouton, tu ajoutes la lignes de code. Regarde le "OnAction" du bouton.

'--------------------------
Sub Exemple()

Dim Tbar As CommandBar
Dim Ctl As CommandBarButton

On Error Resume Next
Application.CommandBars("Caisse de Noël").Delete
Set Tbar = Application.CommandBars.Add
With Tbar
.Name = "Caisse de Noël1"
.Visible = True
.Left = 0
.Top = 100
End With

With Tbar
Set Ctl = .Controls.Add(msoControlButton)
With Ctl
.Caption = "ça marches-tu bien cette bidouille"
.Style = msoButtonCaption
.OnAction = "MaMacro"
.Width = 500
End With
End With
End Sub

'--------------------------
Sub MaMacro()
MsgBox "bonsoir"
Application.CommandBars("Caisse de Noël").Delete
End Sub
'--------------------------



"Claire" a écrit dans le message de news:
Bonjour Michdenis,

Je sais comment la supprimer, mais je voudrais que cette barre soit
supprimée suite à son utilisation sans que j'aie à intervenir. Le bouton de
cette barre insère des nouvelles lignes.

Claire

"michdenis" a écrit dans le message de
news:
Bonsoir Claire,

Application.CommandBard("NomDeLaBarre").delete


Salutations!


"Claire" a écrit dans le message de news:
%

Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils avec
un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire





Avatar
Claire
Merci beaucoup, j'essayais de me compliquer la vie avec un module relié à un
évènement tel que SheetChange.

Ma devise n'est pourtant pas "pourquoi faire facile quand on peut faire
difficile"

Claire ;-))))))))


"michdenis" a écrit dans le message de
news:%
Bonsoir Claire,

Dans la macro qui est appelé par le bouton, tu ajoutes la lignes de code.
Regarde le "OnAction" du bouton.


'--------------------------
Sub Exemple()

Dim Tbar As CommandBar
Dim Ctl As CommandBarButton

On Error Resume Next
Application.CommandBars("Caisse de Noël").Delete
Set Tbar = Application.CommandBars.Add
With Tbar
.Name = "Caisse de Noël1"
.Visible = True
.Left = 0
.Top = 100
End With

With Tbar
Set Ctl = .Controls.Add(msoControlButton)
With Ctl
.Caption = "ça marches-tu bien cette bidouille"
.Style = msoButtonCaption
.OnAction = "MaMacro"
.Width = 500
End With
End With
End Sub

'--------------------------
Sub MaMacro()
MsgBox "bonsoir"
Application.CommandBars("Caisse de Noël").Delete
End Sub
'--------------------------



"Claire" a écrit dans le message de news:


Bonjour Michdenis,

Je sais comment la supprimer, mais je voudrais que cette barre soit
supprimée suite à son utilisation sans que j'aie à intervenir. Le bouton
de

cette barre insère des nouvelles lignes.

Claire

"michdenis" a écrit dans le message de
news:
Bonsoir Claire,

Application.CommandBard("NomDeLaBarre").delete


Salutations!


"Claire" a écrit dans le message de news:
%

Bonsoir,

J'ai une fichier Excel qui, à l'ouverture, installe un barre d'outils
avec


un bouton. Est-il possible que, une fois ce bouton cliqué, la barre
d'outils soit supprimée.

Merci
Claire