IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-00] Copier/coller de shape


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Inscrit en
    Octobre 2008
    Messages
    99
    Détails du profil
    Informations forums :
    Inscription : Octobre 2008
    Messages : 99
    Par défaut [E-00] Copier/coller de shape
    bonjour,

    j'ai un souci sur une procédure de copier coller ( ), j'ai enregistrer une macro qui me permet de copier un shape d'une feuille(où il existe plusieurs shapes) sur une autre. le code enregistré est le suivant:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     Sheets("Image2").Select
        Selection.Copy
        Sheets("Levelling_Lifting Phase").Select
        ActiveSheet.Paste
    déjà je ne comprend pas pourquoi ce code marche vu qu'il sélectionne que la feuille et non pas le shape.....et pourtant mystère le bon shape est copié......

    si je remplace la premiere ligne par

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Image2").Shapes("Group1.1").Select
    la procédure ne fait pas d'erreur mais l'élément copié n'apparait pas sur la feuille d'arrivée

    vu que je voudrait créer une sorte de boucle sur la base de cette procédure en bouclant sur le nom du shape ... me voilà embéter de plus il faut ensuite que je replace bien mon shape sur la feuille ....

    merci pour vos réponses

  2. #2
    Membre chevronné
    Inscrit en
    Octobre 2008
    Messages
    273
    Détails du profil
    Informations personnelles :
    Âge : 46

    Informations forums :
    Inscription : Octobre 2008
    Messages : 273
    Par défaut
    Ca te copie ton shape car il est sélectionné :
    Essayes directement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Image2").Shapes("Group1.1").Copy

  3. #3
    Membre confirmé
    Inscrit en
    Octobre 2008
    Messages
    99
    Détails du profil
    Informations forums :
    Inscription : Octobre 2008
    Messages : 99
    Par défaut
    ahhh merci beaucoup une petite différence qui fait beaucoup....
    bonne fin de journée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2002] Erreur sur copier/coller de shapes (images)
    Par Golork dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/12/2010, 14h48
  2. [Swing]copier coller... dans le menu.
    Par parksto dans le forum Composants
    Réponses: 3
    Dernier message: 10/05/2004, 22h56
  3. Copier coller Fichier windows
    Par KPitN dans le forum Windows
    Réponses: 8
    Dernier message: 20/04/2004, 17h32
  4. Copier Coller une ligne d'une table avec modif ?
    Par nolan76 dans le forum Requêtes
    Réponses: 4
    Dernier message: 04/03/2004, 16h34
  5. [Débutant] Conserver la couleur lors d'un copier coller
    Par ADIDASman dans le forum JBuilder
    Réponses: 2
    Dernier message: 21/05/2003, 18h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo