Bonjour, voici ce que je voudrais effectuer ...
 
Je voudrais que lorsque l'on clique sur un bouton d'événement l'on copie une forme excel vers une autre feuille, le probléme est que je sais récupérer le texte d'une cellule pour l'integrer dans une autre... mais je sais pas comment faire pour les formes :] si quelqu'un a une solution
 
 
Merci bcp !

J'ai trouver un moyen :
 
For i = 3 To 13
    Ngr = Cells(i, 18)
    MsgBox Ngr
    Sheets("Feuil1" ).Select
    MsgBox ("Gr" & Ngr)
    ActiveSheet.Shapes("Gr" & Ngr).Select
    Selection.Copy
    Sheets("Feuil2" ).Select
    Rg = Cells(i, 17).Value
    Cells(1, 3).Select
    ActiveSheet.Paste
Next
 
 
Cependant lorsque je lance la macro, ca m'afficher une erreur d'éxécution -2147024809 (80070057)
 
Le débogage m'indique que c'est cet ligne la qui ne va pas :  
 
ActiveSheet.Shapes("Gr" & Ngr).Select => et je ne vois pas pourquoi, si quelqu'un a une idée... ou a eu le même genre de problème.
 
Merci