Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

supprimer un control ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion olive
  • 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 !

S'inscrire
O

olive

Guest
Salut le forum!!!

J'espère que qq'un pourra m'aider :

J'ai mis dans "thisworkbook" le code suivant pour ajouter un control à l'ouverture :

Private Sub Workbook_Open()

Dim appel As CommandBarControl

Set appel = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton, , , , False)
With appel
.Caption = "appel programme calcul topo"
.FaceId = 59
.OnAction = "barre_commandes"
.Enabled = True
End With

End Sub

Et je voudrais savoir comment on fait pour que ce bouton soit supprimé à la fermeture. En effet j'ai essayé avec workbook_beforeclose et app_workbookbeforeclose mais aucun résultats !!!

Merci d'avance à tous!!!

Olive
 
Trier par date Trier par votes
salut,

pour savoir pkoi ton controle est mal supprimé, c'est le code que tu a mis dans le workbook_beforeclose qu'il faut qie tu nous donne.
sinon je pense que cela doit être un truc du style

For i = 1 To Application.CommandBars("Worksheet Menu Bar").Controls.Count
If Application.CommandBars("Worksheet Menu Bar").Controls(i).Caption = "appel programme calcul topo" Then Application.CommandBars("Worksheet Menu Bar").Controls(i).Delete
Next i
 
Vote positif 0 Vote négatif
Ok j'ai intégré ta solution (merci pour ton aide arnaud) ca donne ça :

Private Sub app_WorkbookBeforeClose()

For i = 1 To Application.CommandBars("Worksheet Menu Bar").Controls.Count
If Application.CommandBars("Worksheet Menu Bar").Controls(i).Caption = "appel programme calcul topo" Then Application.CommandBars("Worksheet Menu Bar").Controls(i).Delete
Next i

End Sub

Mais à chaque fois j'ai le message d'erreur :

"indice en dehors de la plage" quand j'éxécute moi même la macro.

En plus elle ne s'exécute pas (et donc rien n'est supprimé) quand je ferme excel, alors que j'aimerai que ca se fasse automatiquement !

As tu une solution ?
 
Vote positif 0 Vote négatif
essaye ça alors:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Application.CommandBars("Worksheet Menu Bar").Controls.Count
If Application.CommandBars("Worksheet Menu Bar").Controls(i).Caption = "appel programme calcul topo" Then
Application.CommandBars("Worksheet Menu Bar").Controls(i).Delete
Exit Sub
End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2016 Supprimer "Rechercher dans les menus" du menu contextuel de cellule Excel
Réponses
3
Affichages
375
jurassic pork
A
  • Question Question
Microsoft 365 Slicer - supprimer le menu contextuel ou la possibilité de supprimer le filtre
Réponses
1
Affichages
745
xUpsilon
D
  • Résolu(e)
Microsoft 365 Création d'une barre personnalisée dans Excel
2 3
Réponses
35
Affichages
3 K
laurent950
XLS : Sélecteur de Couleur
Réponses
10
Affichages
668
Lu76Fer
  • Question Question
XL 2016 Modele Objet "Application.CommandBars" Chemin Classeur A Pour Création dans un Autres Classeurs B
Réponses
1
Affichages
1 K
laurent950
T
  • Question Question
XL 2019 Créer bouton dans la barre d'outils
Réponses
2
Affichages
1 K
team18fr
T
  • Question Question
Microsoft 365 Personnalisation du ruban
Réponses
2
Affichages
1 K
patricktoulon
centrer verticalement le texte de la caption d'un control Label dans un userform
Réponses
1
Affichages
2 K
patricktoulon
  • Résolu(e)
XL 2010 Masquer le clic droit dans les onglets avec ThisWorkbook
Réponses
2
Affichages
2 K
Orson83
A
  • Question Question
XL 2016 Placer icone devant menu contextuel
Réponses
0
Affichages
940
alain160
A
  • Résolu(e)
XL 2016 Menu contextuel sur Clic droit d'un shape
Réponses
11
Affichages
3 K
fanch55
H
  • Question Question
Autres Excel 2007
Réponses
4
Affichages
1 K
Hamadouche
H
S
  • Question Question
Lancer deux Macros avec un menu contextuel
Réponses
4
Affichages
1 K
softimen
S
S
  • Question Question
Duplication de la ligne avec incrementation
Réponses
1
Affichages
885
softimen
S
B
  • Question Question
commandbar perso VS customUI
Réponses
2
Affichages
1 K
bérylion
B
G
  • Question Question
XL 2013 Boucle sur Commandbars
2
Réponses
24
Affichages
4 K
Roland_M
J
  • Question Question
XL 2010 [Résolu] Menu personnalisé récalcitrant..
Réponses
4
Affichages
1 K
jmh1
J
  • Question Question
Personaliser barre de commande accès rapide
Réponses
2
Affichages
1 K
vgendron
Y
  • Question Question
[Résolu]pb avec Workbook_BeforeClose
Réponses
1
Affichages
530
Robert
  • Question Question
erreur de création de menu perso et chargement du personnal.xlb
Réponses
0
Affichages
1 K
gosselien
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…