COPIER UN GROUPE D'OBJETS

Signaler
Messages postés
4
Date d'inscription
lundi 27 décembre 2010
Statut
Membre
Dernière intervention
15 avril 2011
-
Messages postés
4
Date d'inscription
lundi 27 décembre 2010
Statut
Membre
Dernière intervention
15 avril 2011
-
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?

Merci d'avance, et à bientot

2 réponses

Messages postés
7276
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
2 mars 2021
120
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



@+Le Pivert
Messages postés
4
Date d'inscription
lundi 27 décembre 2010
Statut
Membre
Dernière intervention
15 avril 2011

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.

A bientot,

Maxence89