Copier un shapes.....

É

Épaf

XLDnaute Occasionnel

• 23 Décembre 2009

• #2

Re : Copier un shapes.....

Fais précéder ton code de la ligne

Code:

Application.ScreenUpdating = false

Que tu refais passer à true à la fin de la macro
Bonne journée

... si j'ai bien compris ton problème 😉

 

Dernière édition: 23 Décembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Décembre 2009

• #3

Re : Copier un shapes.....

Bonjour,
A partir de la feuille dans laquelle tu veux coller, appelle la macro

Code:

Sub CollerOval()
Sheets("dessin").Shapes("Oval 1").Copy
Range("C13").Select
ActiveSheet.Paste
End Sub

A+

 

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 23 Décembre 2009

• #4

Re : Copier un shapes.....

Merco de vos réponses......
mais cela ne fonctionne pas hélas

lors de l'éxécution de la macro on apercoit toujours la feuille d'origine

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Décembre 2009

• #5

Re : Copier un shapes.....

re,

Alors là il faut préciser,

Si c'est rendre la feuille 'dessin' non visible, c'est autre chose:
Sheets("dessins").visible=false

Ce que je t'ai donné fonctionne, sans activation ni selection de la feuille 'dessin'!

A+

 

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 23 Décembre 2009

• #6

Re : Copier un shapes.....

Désolé, je m'étais peut etre mal exprimé

Effectivement ton code marche lorsque la feuille "dessin" n'est pas visible

Autant pour moi, j'ai refait le test avec vos 2 codes et cela marche
encore merci à vous 2
A +
Bonnes fetes

 

Vote positif 0 Vote négatif