Discussion :

[Benjycool]

Bonjour,

Je veut copier le contenue d'une feuille vers une autre tout marche même le bouton mais je n'arrive pas à copier le code qui se trouve dans le bouton.

Comment faire ?

Benjycool

[fred65200]

bonjour,
comment t'y prends tu pour copier ta feuille ?
Où est placé le code du bouton ?
Peux tu donner un peu plus d'explication, ma boule de cristal est cassée.

Cordialement

[Benjycool]

Alors voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub CommandButton3_Click()
 
Dim cl1 As Workbook
Dim f1 As Worksheet
 
Set cl1 = ActiveWorkbook
Set f1 = cl1.Worksheets("Feuil1")
 
 
Worksheets.Add
ActiveSheet.Name = "Feuil5"
 
 
Sheets("Feuil1").Select
ActiveSheet.Shapes("som_colA").Select
Selection.Copy
Sheets("feuil5").Select
ActiveSheet.Paste
 
ActiveSheet.Shapes("Commandbutton1").Name = "som_colA"
 
End Sub

C'est le code pour copier le bouton mais je voudrais avec copier le code du bouton som_colA.
Ce bouton fait la somme de la colonne A tout simplement.
Je voudrais donc copier le bouton de la feuille 1 à la feuille 5 mais avec le code pour qu'à la feuille 5 je puisse cliquer sur le bouton et qu'il me fasse la somme.

Benjycool

[fred65200]

bonjour,
pourquoi ne copies tu pas directement la feuille, le code sera aussi copié ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)  'en dernier
ActiveSheet.Name = "Feuil" & Sheets.Count

Tu dis si ça te va.
Cordialement

[Benjycool]

Je pense que sa devrait aller, merci Fred65200.

Benjycool