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 !

kingfadhel

XLDnaute Impliqué
Bonsoir,
j'ai telechargé un fichier excel afin de voir comment ajouter une barre personnalisée et depuis à chaque ouverture d'excel cette barre s'incremente automatiquement.
le fichier n'existe plus sur mon pc et malgré ça la barre existe encore 😡😡😡.
voir l'image attachée.

ert.jpg

Comment restaurer la barre par défaut ou supprimer cette barre.
Merci d'avance.
 
Re : CommandBarcontrols

Bonjour,

Tu peux essayer:
Code:
Sub DelCommandBars()
Dim cmb As CommandBar
For Each cmb In Application.CommandBars
    If Not cmb.BuiltIn Then cmb.Delete
Next
End Sub
qui supprimera TOUTES les CommandBar qui ne sont pas d'origine (fournies à l'installation d'excel)
A+
 
Re : CommandBarcontrols

Bonjour,
Issu de l'aide d'Excel :
CommandBar.BuiltIn, propriété
Cette propriété renvoie la valeur True si la barre de commandes précisée est une barre de commandes prédéfinie à l'application conteneur. Elle renvoie la valeur False si la barre de commandes est personnalisée. Propriété en lecture seule.
Remarque
L'utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par la nouvelle interface utilisateur Ruban. Pour plus d'informations, recherchez le mot clé « Ruban » dans l'aide.

Syntaxe

expression.BuiltIn

expression Variable représentant un objet CommandBar.

Valeur renvoyée
Booléenne

Exemple
Cet exemple montre comment supprimer toutes les barres de commandes personnalisées qui ne sont pas visibles.

Visual Basic pour Applications
foundFlag = False
deletedBars = 0
For Each bar In CommandBars
If (bar.BuiltIn = False) And (bar.Visible = False) Then
bar.Delete
foundFlag = True
deletedBars = deletedBars + 1
End If
Next
If Not foundFlag Then
MsgBox "No command bars have been deleted."
Else
MsgBox deletedBars & " custom command bar(s) deleted."
End If
A+

Edit : salut Hasco et bonne année !
 
- 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

  • Question Question
Microsoft 365 Suivi charge/capa
Réponses
10
Affichages
356
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
315
Réponses
1
Affichages
236
Réponses
2
Affichages
467
Réponses
6
Affichages
467
Réponses
23
Affichages
680
  • Question Question
Microsoft 365 concours pétanque
Réponses
22
Affichages
1 K
Retour