Copier un bouton avec ces codes

[wario]

Bonjour à tous, Je voudrais savoir comment faire pour copier coller un bouton avec ces code dans ma commande existente.

voici le code de mon boutton et je voudrais qu'il copie aussie mon autre bouton

Private Sub CommandButton6_Click()
ActiveSheet.Rows("5:8").Copy
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
Range("A5").ClearContents
Range("B6").Select
End Sub


il copie mes lingnes mes pas mon boutton 😕

Voici le code du boutton que je voudrais copier dans mon autre bouton

Private Sub Ajoute_Click()
ActiveSheet.Rows("6:6").Copy
ActiveSheet.Rows("6:6").Insert Shift:=xlDown
ActiveSheet.Rows("6:6").ClearContents
Range("F7").Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Range("G7").Select
Selection.Copy
Range("G6").Select
ActiveSheet.Paste
Range("H7").Select
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("I7").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Range("J7").Select
Selection.Copy
Range("J6").Select
ActiveSheet.Paste
Range("K7").Select
Selection.Copy
Range("K6").Select
ActiveSheet.Paste
Range("L7").Select
Selection.Copy
Range("L6").Select
ActiveSheet.Paste
Range("B6").Select
End Sub

Merci à tous

 

[Staple1600]

Re : Copier un bouton avec ces codes

Bonsoir

Pré-requis
Un CommandButton (issu de la BO Contrôles)
Dans le code de la feuille 1, une procédure CommandButton1_Click()
Se positionner sur la feuille 1
et lancer la macro ci-dessous

Sub TestCopieBtnETvba()
Dim i As Byte, Obj As Object, d As Byte, vCode$
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    d = .ProcStartLine("CommandButton1_Click", 0)
    i = .ProcCountLines("CommandButton1_Click", 0)
vCode = .Lines(d, i)
End With
ActiveWorkbook.VBProject.VBComponents("Feuil2").CodeModule.AddFromString vCode
'creation du bouton
Sheets(2).Select
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
   Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
End Sub

Et cliquez sur le bouton qui vient d'être créé sur la feuille 2
le code associé au bouton copié dans la feuille 2 s’exécute bien.

NB: Cocher: Faire confiance au projet VBA (outils/Macros/Sécurité)

 

[wario]

Re : Copier un bouton avec ces codes

Merci!! j'ai réussie à créez le bouton mais je n'arrive pas à changer la forme total expl: la couleur et le nom. Et je ne suis pas capable de lui assigner directement le code que je veux

voici ce que sa donne avec la bonne possition et la grosseur

Private Sub CommandButton6_Click()
ActiveSheet.Rows("50:53").Copy
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
Range("A5").ClearContents
Range("B6").Select
Sheets(2).Select
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=5.25, Top:=102.75, Width:=62.25, Height:=21)
End Sub

et je veux rajouter les lignes suivantes

Private Sub Ajoute_Click()
ActiveSheet.Rows("6:6").Copy
ActiveSheet.Rows("6:6").Insert Shift:=xlDown
ActiveSheet.Rows("6:6").ClearContents
Range("F7").Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Range("G7").Select
Selection.Copy
Range("G6").Select
ActiveSheet.Paste
Range("H7").Select
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("I7").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Range("J7").Select
Selection.Copy
Range("J6").Select
ActiveSheet.Paste
Range("K7").Select
Selection.Copy
Range("K6").Select
ActiveSheet.Paste
Range("L7").Select
Selection.Copy
Range("L6").Select
ActiveSheet.Paste
Range("B6").Select
End Sub


Merci!!