Copier des lignes de code d'un CommandButton

Version imprimable

22/04/2009, 10h41
b.berthelot

Copier des lignes de code d'un CommandButton

Salut à tous, je suis débutant en prog et j'aurais voulu savoir comment dupliquer un code contenu dans VB vers une autre feuille...

en fait, j'ai une feuille execl avec un bouton qui, lorsque je clic dessus, copie le contenu de la feuille en cours, crée une autre feuille à la suite de la précedente et colle ce contenu (donnée dans des cellules + 1 CommandButton). Ca, ca marche, pas de prob. Maintenant, j'aimerais ajouter comme action a ce meme commandbutton le fait de copier son propre code de la premiere feuille et de le coller dans le code du nouveau commandbutton copier précedemment...

dispo pour + de renseignement, n'hésitez pas !!
22/04/2009, 11h03
Invité
Bonjour et bienvenue sur le Forum,

Puisque votre nouvelle feuille semble, au départ, devoir être une copie conforme de la précédente pour quoi ne pas utiliser par exemple ce type de code (à adapter et à mettre dans un module) :
Code:

1 2 3 Sheets("Feuil1").Copy After:=Sheets(1) Sheets("Feuil1 (2)").Select Sheets("Feuil1 (2)").Name = "Feuil2"
22/04/2009, 11h07
JPierreM

Et en faisant simplement une copie de ta feuille, les données et le bouton seront dupliqués, code compris
22/04/2009, 13h43
b.berthelot

Merci jacques_jean, ca je l'ai déjà fait, ca marche niquel !
22/04/2009, 13h46
b.berthelot

OK JPierreM, mais c'est ce que j'ai déjà fait : une copie de feuille..., mais ca ne copie que les données dans la cellule, ca ne copie pas le bouton (j'ai réussi à copier le commandbutton en passant par un autre code), mais je n'arrive pas à copier le code du bouton ?!
22/04/2009, 16h45
Invité

Re,

J'avoue que j'avais mal compris votre question, mais peut-être aussi parce que je ne voyais pas l'intérêt de cette façon de procéder.

Mais puisque vous semblez avoir une raison de le faire, regardez ici, si cela peut vous aider :

http://silkyroad.developpez.com/VBA/...cEditor/#LIV-E

§ IV-E Importer-Exporter
22/04/2009, 18h56
phal2ip

Bonsoir
SI tu copie une feuille dans le même classeur tu as donc forcément le même VB donc tes macros sont toutes les mêmes. Tu n'as donc plus qu'à dire a ton commandbutton la macro qu'il doit utilisé en cliquant dessus.

Essaye cela

Code:

ActiveSheet.Shapes("Button 1").OnAction = "macro que tu veux activer"

J'espère avoir été assez clair et surtout que cela résoudra ton problème
22/04/2009, 19h12
Invité

Bonsoir,

phal2ip :

Citation:

Si tu copies une feuille dans le même classeur tu as donc forcément le même VB donc tes macros sont toutes les mêmes. Tu n'as donc plus qu'à dire a ton commandbutton la macro qu'il doit utiliser en cliquant dessus.

C'est exactement ce qui a été répété plusieurs fois sur ce sujet.

Pourquoi ajouter du code comme celui que vous préconisez :

Code:

ActiveSheet.Shapes("Button 1").OnAction = "macro que tu veux activer"

puisque le code se trouve sur une feuille ?

Si ce n'était pas le cas, la question est mal posée.
22/04/2009, 19h23
phal2ip

Bonsoir
je disais cela car s'il veut utiliser le même code il n'a rien à faire mais s'il veut donner une autre action au Bouton c'est de cette manière qu'il devrait faire.