Bouton de commande pré-programmer

lixil Messages postés 38 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
j'ai un bouton de commande 1 (=feuil1!bp1) dans la feuille 1.

Quand j'appuie dessus une nouvelle feuille excel se créée avec un titre et une copie du bouton de commande 1(=feuil2!bp1).

Le probleme est celui ci: le bouton de commande 1 de la feuille 2 n'est pas programmé et je n'arrive pas a trouvé de solution.

Cordialement

3 réponses

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Il y a cette astuce CCM qui te donne un exemple simple.
    A adapter à ton cas.
    Merci à lermitte222 pour cette fiche pratique.
    1
  2. lixil Messages postés 38 Statut Membre
     
    Re,
    Merci pour ta réponse!!
    j'ai un problème au niveau de l'ajout de la macro en fin de module feuille

    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    .insertlines .CountOfLines + 1, Code
    End With

    Et je ne comprend absolument pas cette ligne
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      j'ai un problème
      ????????????
      Lequel?
      Message d'erreur? si oui, quel message d'erreur?

      Qu'elle version d'Excel?

      Les 3 lignes données servent à insérer 1 ligne de code dans le module de la feuille active.
      ActiveWorkbook = classeur actif
      VBProject = Projet VBA
      VBComponents = collection de composants contenue dans un projet
      ActiveSheet.Name = nom de la feuille active
      CodeModule = Code Module
      insertlines = insérer une ligne
      CountOfLines = nombre de lignes de code
      0
  3. lixil Messages postés 38 Statut Membre
     
    j'ai excel 2010
    Le message d'erreur est :

    Erreur d'exécution '424' :
    Objet requis

    et lorsque je clique sur debogage il me met cette ligne en jaune:
    With ActiveWorksheet.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      peux tu nous passer une copie sans données confidentielles de ton classeur?
      Pour cela utilises cjoint.com.
      Merci
      0