Tracé un trait

Claudette -  
franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
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

  1.
    franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
     
    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

Discussions similaires

Barre verticale droite sur clavier
k_lou -
Leuide -

41 réponses
Bouton ON/OFF : O ou I, quel côté est allumé
Stargirlfr -
kaparzo23 -

12 réponses
Trait rose vertical sur l'écran
Alex -
yohan -

11 réponses
Trait récalcitrant sous Word
Mike-31 -
Ange420 -

3 réponses
Barre verticale droite sur clavier mac
oui -
jeanbern -

1 réponse