Copie de bouton(macros)

Bonjour

J'aimerais copier un bouton, qui permet de lancer une macros, sur une autre feuille.

j'ai essayer le code suivant, mais ça se fonctionne pas, ca me dit qu'il n'existe pas de bouton qui portent ce nom!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I1:I5")) Is Nothing Then
    Sheets("feuil1").Select
    ActiveSheet.Shapes("essai").Select
    Selection.Copy
    Sheets(Sheets.Count).Select
    ActiveSheet.Paste
    ActiveSheet.Shapes("Commandbutton1").Name = "essai"
End If
End Sub

Je joins le fichier, pour montrer ce que je veut faire.

vincent

Bonjour,

Je n'ai pas tout compris.

Le code que tu as indiqué se déclenche quand tu modifies le contenu des cellules de I1 à I5 dans la feuille 1 uniquement. A quoi correspond ActiveSheet.Shapes("essai").Select car je n'ai rien vu qui s'appelle essai à part la macro déclenchée par le bouton.

Mais le bouton déclenche ce code :

Sub essai()
'
' essai Macro
'
    ActiveSheet.Range("A2").Select
    ActiveSheet.Range("A3:A4", ActiveCell.End(xlToRight).Offset(1, 0)).Select
    Selection.Copy
    ActiveSheet.Range("A3").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Tu veux copier lequel ?

A+

Bonjour

Peut-être

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I1:I5")) Is Nothing Then
    Sheets("feuil1").Select
    ActiveSheet.Shapes("Bouton 1").Select
    Selection.Copy
    Sheets(Sheets.Count).Select
    ActiveSheet.Range("A1").Select
    ActiveSheet.Paste
End If
End Sub

Cordialement

Merci Amadéus, ceci fonctionne.

en effet je voulais que la copie s'active uniquement si je rentrais des valeurs entres I1 et I5

Comment peut on savoir le nom que porte le bouton? comment à tu su que son nom de référence était "Bouton 1"?

Parce que ceci était juste un exemple, j'ai essayer dans mon fichier avec bouton 1 et bouton 2 (j'en ai que 2), ceci ne fonctionne pas!

vincent

Bonsoir,

Pourquoi ne pas simplement dupliquer ta feuille 1, si tu changes I1 à I5 ?

Qu'y a -t-il dans I1 à I5 ? Le nom de tes boutons ou autre chose ?

Les boutons commandent toujours la macro Essai ??

A te relire

Merci a tous, ca fonctionne!

Il me disait que la référence au bouton 2 n'existait pas, j'ai juste fait un couper,coller et ca fonctionnait!

Le code d'amadéus fonctionne correctement.

Et pour trouver le nom de bouton, il ne faillais pas aller bien loin, clique droit, et il appariait dan la "Zone Nom"

Bonne soirée

vincent