Discussion :

[muska78]

Bonjour, je souhaite copier tous les options boutons d'une feuille pour les copier dans une autre feuille de mon classeur.
J'ai enregistré cette macro mais elle ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ActiveSheet.Shapes("OB1").Select
    ActiveSheet.Shapes.Range(Array("OB1", "OB2")).Select
    ActiveSheet.Shapes.Range(Array("OB1", "OB2", "OB3")).Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("D23").Select
    ActiveSheet.Paste

Quelqu'un a une idée pour selectionner mes options bouton pour les copier dans une autre feuille?
Merci

[mayekeul]

bonjour,

comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim s As Shape, wb As Workbook
 
For Each s In Sheets(1).Shapes
    s.Copy
    sheets(2).paste
Next

[muska78]

Bonjour, ça ne fonctionne pas.
Le code s'exécute mais rien n'est copié dans la feuille. Pourtant la boucle For s'exécute autant de fois qu'il y a de boutons.
De plus je voudrai sélectionner tous les boutons option (et pas les autres shapes).
merci pour ta réponse