maxence89
Messages postés4Date d'inscriptionlundi 27 décembre 2010StatutMembreDernière intervention15 avril 2011
-
14 avril 2011 à 18:00
maxence89
Messages postés4Date d'inscriptionlundi 27 décembre 2010StatutMembreDernière intervention15 avril 2011
-
15 avril 2011 à 13:51
Bonjour à tous,
Je voudrais créer un bouton me permettant de copier un "groupe" (en l'occurence un plan constitué de traits et de rectangles dessinés sur excel qui ont été groupé)et de le coller dans un autre classeur. J'ai donc commencé par enregistrer une macro et voila ce que cela donne:
Sub MAXENCE()
'
' MAXENCE Macro
'
Selection.Copy
Windows("Projet.xlsm").Activate
ActiveSheet.Paste
Range("U59").Select
End Sub
Le probleme est que la macro ne copie rien, seulement la partie "selection". J'ai donc essayé en écrivant la macro ainsi:
Groupe366.Copy...
Mais cela ne fonctionne pas: la macro ne reconnait pas le nom du groupe (celui indiqué en haut à gauche de la feuille).
Quelequ'un sait-il comment indiquer le nom d'un groupe dans une macro?
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 15 avril 2011 à 10:52
Bonjour,
J'ai utilié l'enregistreur de macro et voilà ce que ça donne:
Sub Macro2()
' Macro2 Macro
' Macro enregistrée le 15/04/2011 par Le Pivert
ActiveSheet.Shapes("Group 5").Select
Selection.Copy
Sheets("Feuil2").Select
Range("F5").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End Sub
maxence89
Messages postés4Date d'inscriptionlundi 27 décembre 2010StatutMembreDernière intervention15 avril 2011 15 avril 2011 à 13:51
Bonjour le Pivert,
Merci beaucoup, le bouton fonctionne maintenant. Mais j'ai réessayé d'enregistrer la macro et elle ne réalise pas le "ActivateSheet.Shapes("Group 5").Select", je ne comprend pas pourquoi...bref en tout cas ca marche, j'ai recopié ta macro.