EXCEL VBA et CommandBar
Fermé
MIC91
-
12 mars 2009 à 15:37
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 14 mars 2009 à 11:33
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 14 mars 2009 à 11:33
A voir également:
- EXCEL VBA et CommandBar
- Liste déroulante excel - Guide
- Si et excel - Guide
- Formule excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
1 réponse
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
337
14 mars 2009 à 11:33
14 mars 2009 à 11:33
bonjour
Tu dois avoir l'erreur à la 2ème exécution du programme.
Si tu fais ceci la barre de menu est visible à la 1ère exécution. Ensuite il faut la supprimer si tu veux lancer à nouveau le programme :
Pour éviter ce problème utilise :
à plus
Tu dois avoir l'erreur à la 2ème exécution du programme.
Si tu fais ceci la barre de menu est visible à la 1ère exécution. Ensuite il faut la supprimer si tu veux lancer à nouveau le programme :
Sub Barre_menu() Dim Cab As CommandBar Set Cab = CommandBars.Add(Name:="Menu1") CommandBars("Menu1").Visible = True 'CommandBars("Menu1").Delete End Sub
Pour éviter ce problème utilise :
Sub test() foundFlag = False For Each bar In CommandBars If bar.Name = "Menu1" Then foundFlag = True bar.Visible = True End If Next If Not foundFlag Then Set Cab = CommandBars.Add(Name:="Menu1") CommandBars("Menu1").Visible = True End If End Sub
à plus