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
Bonjour,

Formule pour copier des bordures d'un fichier a un autre..
Je dessine avec le crayon ''tracé un trait'' et j'aimerais que ce dessin soit reproduit d'un fichier a un autre.
Merci de votre attention
feuille de calcul.

Configuration: Windows / Chrome 81.0.4044.129

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
Bonjour
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
0