suppression de boutons dans l'onglet compléments

  • Initiateur de la discussion Initiateur de la discussion mardouk
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mardouk

XLDnaute Nouveau
Salut à tous!

L'entreprise dans laquelle je suis en stage m'a demandé de leur créer une application pour la gestion des devis.
J'ai donc mis le code suivant dans ThisWorkbookpour ajouter les boutons adéquats dans l'onglet Compléments:

Private Sub Workbook_Open()
Dim cmd As CommandBar
Dim opt As CommandBarControl
strFolder = ThisWorkbook.Path & "\"
Set cmd = Application.CommandBars("Tools")
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau devis"
opt.OnAction = "Ajout_Devis"
opt.TooltipText = "Permet de créer un nouveau devis"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Recherche devis"
opt.OnAction = "Rech_Devis"
opt.TooltipText = "Permet de rechercher un devis"
Set opt = cmd.Controls.Add(Type:=msoControlButton, Before:=3)
opt.Caption = ""
opt.OnAction = ""
opt.Enabled = False
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau client"
opt.OnAction = "Ajout_Client"
opt.TooltipText = "Permet de créer un nouveau client"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Rechercher client"
opt.OnAction = "Rech_Client"
opt.TooltipText = "Permet de rechercher un client"
Set opt = cmd.Controls.Add(Type:=msoControlButton, Before:=3)
opt.Caption = ""
opt.OnAction = ""
opt.Enabled = False
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau produit"
opt.OnAction = "Ajout_Produit"
opt.TooltipText = "Permet de créer un nouveau produit"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Rechercher produit"
opt.OnAction = "Rech_Produit"
opt.TooltipText = "Permet de rechercher un produit"
End Sub

Le problème c'est que j'ai fait plusieurs manips pour bien placer mes boutons et que maintenant je me traîne tous les essais que j'ai fait!! C'est à dire que j'ai mes boutons, mais au lieu de se replacer quand j'ai changé mon code, ils se sont succédé! Est ce que quelqu'un saurait comment s'en débarasser?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
582
S
Réponses
3
Affichages
1 K
Retour