IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro XLA ajout et supression bouton de commande


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    842
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 842
    Par défaut Macro XLA ajout et supression bouton de commande
    Bonsoir à tous.

    J’ai besoin d’un petit coup de pouce.

    Voila, j’ai créé une macro xla qui à l‘ouverture de l’application Excel ajoute un bouton de commande dans la barre d’outils.

    J’aimerais qu’à la fermeture de l’application Excel ce bouton de commande soit supprimé.

    Je ne sais pas comment mis prendre. J’ai essayé l’évènement de ThisWorkbook suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Call SuppressionBoutonsCommande
    End Sub
    Cela ne fonctionne pas, quel évènement faut-il utiliser ?

    Merci d’avance pour votre réponse.

    A +

  2. #2
    Membre chevronné

    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    453
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 453
    Par défaut
    Quel code emploies-tu pour le créer, ce bouton?

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    842
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 842
    Par défaut
    Bonsoir Singular

    Dans un module voici le
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Sub CreationBoutonCommande ()
    With CommandBars("Formatting").Controls.Add(msoControlButton, Before:=14)
        .FaceId = 798
        .OnAction = "procédure..." 
        .TooltipText = "...." 
     End With
    End Sub
    Sub SuppressionBoutonsCommande ()
        Application.CommandBars("Formatting").Controls(14).Delete
    End Sub

    Dans le ThisWorkbook
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub Workbook_Open()
        Call CreationBoutonCommande
    End Sub
    @ +

  4. #4
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Regardes dans l'aide le dernier paramètre de Add qui se nomme Temporary.

    Starec

Discussions similaires

  1. [XL-2003] Macro selon coordonnées d'un bouton de commande
    Par Neo37 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 29/03/2013, 17h10
  2. Réponses: 3
    Dernier message: 08/02/2009, 18h24
  3. Réponses: 3
    Dernier message: 10/06/2008, 10h22
  4. Copier une macro personnelle dans un bouton de commande
    Par chakev dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 15/05/2008, 16h30
  5. Ajout de bouton de commandes dans la barre de menus
    Par vanessaf22 dans le forum IHM
    Réponses: 9
    Dernier message: 21/07/2003, 11h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo