Tracé un trait
Fermé
Claudette
-
4 mai 2020 à 18:17
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 5 mai 2020 à 07:22
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 5 mai 2020 à 07:22
1 réponse
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
5 mai 2020 à 07:22
5 mai 2020 à 07:22
Bonjour
Si ça répond à ton problème
A+ François
Si ça répond à ton problème
Public Sub CopyForme()
Dim forme As Object
For Each forme In ActiveSheet.Shapes
ActiveSheet.Shapes.Range(Array(forme.Name)).Select 'pour avoir le nom de la forme
Selection.Copy
Sheets("Feuil2").Paste 'copy sur la feuille 2
Next
End Sub
A+ François