Bouton de commande pré-programmer

lixil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 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


A voir également:

3 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Il y a cette astuce CCM qui te donne un exemple simple.
A adapter à ton cas.
Merci à lermitte222 pour cette fiche pratique.
1
lixil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention  
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
lixil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention  
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
peux tu nous passer une copie sans données confidentielles de ton classeur?
Pour cela utilises cjoint.com.
Merci
0