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 :

Personnaliser menus contextuels


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    105
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 105
    Par défaut Personnaliser menus contextuels
    Bonjour,

    Après avoir consulté de nombreux posts, j'ai bien compris comment ajouter des boutons perso dans un menu contextuel.
    Mon problème est inverse. Je veux invalider des boutons standards.
    Exemple : je dois invalider la commande options de collage du menu contextuel de cellule.
    Sous 2007, il suffit de fournir une commande du type
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Application.CommandBars("Cell").FindControl(ID:=755).Enabled = False
    pour invalider le collage spécial.

    A priori sous Excel 2010 et suivant, je devrais plutôt faire :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    <customUI....
        <contextMenu idMso="ContextMenuCell">
            <button idMso=...
    Mon problème est que je ne connais pas la liste des idMso tant ceux des menus contextuels que ceux des boutons, commandes et autres.
    Et je ne sais pas ou les trouver.
    Quelqu'un aurait-il une idée ?

    Ou peut-être y a t'il une meilleure solution ?

    Cdt, NC
    Cdt

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Pourquoi chercher midi à quatorze heures ?
    Tu veux quoi, finalement ? Empêcher le copier/coller dans une cellule ?
    Coupe-lui simplement le sifflet, alors.
    Ainsi, par exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim MyData As DataObject
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Set MyData = New DataObject
        MyData.SetText ""
        MyData.PutInClipboard
    End Sub
    sans tripotailler le menu contextuel. Radical !
    Et même plus radical que la simple disparition d'un choix dans le menu contextuel (choix qui pourrait être facilement remplacé par la touche CTRL+V)

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    105
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 105
    Par défaut
    Ceci n'était qu'un exemple.
    Il y a plusieurs commandes que je peux vouloir invalider dans les menus contextuels.

    Merci pour la réponse mais ce n'est pas suffisant pour mon problème.

    Cela m'énerve de ne pas trouver la documentation sur le sujet.
    Probablement que j'ai pas cherché au bon endroit.

    Autant pour le ruban le tuto disponible sur ce site expliquait bien comment trouver l'info autant pour les menus contextuels, je sèche.

    Cdt, NC

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bonsoir
    liste des control du menu
    &Copier id= 19
    C&oller id= 22
    Colla&ge spécial... id= 755
    Insérer les c&ellules copiées... id= 3185
    &Supprimer... id= 292
    E&ffacer le contenu id= 3125
    Filtr&er id= 31402CommandBarControls
    &Trier id= 31435
    Insérer un co&mmentaire id= 2031
    Effacer le comme&ntaire id= 1592
    A&fficher/Masquer les commentaires id= 1593
    Fo&rmat de cellule id= 855
    &Liste déroulante de choix... id= 1966
    &Afficher le champ phonétique id= 1614
    Nomme&r une plage... id= 13380
    Lien &hypertexte id= 1576
    &Modifier le lien hypertexte... id= 1577
    &Ouvrir le lien hypertexte... id= 1015
    Supp&rimer le lien hypertexte id= 3626
    Développer jusqu'au&x détails id= 11299
    Actions s&upplémentaires id= 31595
    Plein é&cran id= 178
    Un exemple pour désactiver les boutons du menu contextuel des cellules

    code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub disable_control_on_menu_cell()
    ctrls = Array(755, 19)'ici les id que tu veux desactiver 
        With Application.CommandBars("Cell")
           For i = 0 To UBound(ctrls)
           Set Ctrl = .FindControl(ID:=ctrls(i))
            Ctrl.Enabled = False
            Set Ctrl = Nothing
        Next
        End With
    End Sub
    ne pas oublier en fermeture du classeur dans l'evenement close du thisworkbook
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.CommandBars("Cell").reset
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bien vu unparia si on veut empêcher de coller tout court

    en late binding ca donne ca
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim mydata As Object
        Set mydata = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        mydata.SetText ""
        mydata.PutInClipboard
    End Sub
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    105
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 105
    Par défaut
    Bonjour,

    Je connais cette méthode d'invalidation.
    Je ne veux pas interdire le coller.
    Ma question est comment à partir d'Excel 2010, je peux invalider la commande "Options de collage" entre autre qui ne fait pas partie de la liste fournie ci-dessus.
    Elle n'a pas d'Id car ce n'est pas un bouton. Cette entrée de menu contextuel n'existait pas sous Excel 2007.
    Donc à part passer par la customisation comme décrit dans mon 1er post, je ne pense pas pouvoir passer par les commandes vba décrites ci-dessus.

    Suis-je donc le 1er à me heurter à ce genre de problématique ?

    Cdt, NC

Discussions similaires

  1. Personnalisation des Menus Contextuels dans OFFICE 2010
    Par CristofMartins dans le forum Microsoft Office
    Réponses: 0
    Dernier message: 23/10/2012, 15h26
  2. [AC-2010] Menus Contextuels Personnalises
    Par touriiiiist dans le forum Access
    Réponses: 0
    Dernier message: 23/09/2010, 20h04
  3. [AC-2003] Menus contextuels personnalises
    Par SSJconsult dans le forum IHM
    Réponses: 5
    Dernier message: 15/04/2010, 18h21
  4. Réponses: 4
    Dernier message: 02/06/2004, 12h19
  5. [VB6] [MDI] Menus contextuels dans les filles
    Par Rosec dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 16/09/2002, 15h00

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