Macro pour coller une image sur plusieurs feuilles

tototiti2008

XLDnaute Barbatruc

• 25 Janvier 2010

• #2

Re : Macro pour coller une image sur plusieurs feuilles

Bonjour nono-45,

La même image sur 520 feuilles ? tu as prévu d'avoir un classeur de 100 Mo ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2010

• #3

Re : Macro pour coller une image sur plusieurs feuilles

Bonsoir nono, toto

essaye le code ci-dessous, ton image sur la 1ère feuille du classeur et un seul objet sur cette feuille :

Code:

Sub test()
Dim i As Integer
Sheets(1).Shapes(1).Copy
For i = 2 To Sheets.Count
    Sheets(i).Paste Range("B1")
Next i
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

N

nono-45

XLDnaute Nouveau

• 26 Janvier 2010

• #4

Re : Macro pour coller une image sur plusieurs feuilles

Bonjour pierrot,
Merci de ta réponse.
Sur la premiére feuille j'ai plusieurs image( logo, bouton d'impression etc...)
Pourrais tu me donner une macro similaire qui ne part pas de la premiére feuille ?
Merci bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2010

• #5

Re : Macro pour coller une image sur plusieurs feuilles

Bonjour,

essaye en modifiant comme suit, nom de la feuille et de l'image à adapter, enfin si j'ai bien compris :

Code:

Sub test()
Dim i As Integer
Sheets("NomFeuille").Shapes("NomImage").Copy
For i = 2 To Sheets.Count
    If Sheets(i).Name <> "NomFeuille" Then Sheets(i).Paste Range("B1")
Next i
End Sub

 

Vote positif 0 Vote négatif

N

nono-45

XLDnaute Nouveau

• 26 Janvier 2010

• #6

Re : Macro pour coller une image sur plusieurs feuilles

Merci Beaucoup Pierrot ça marche !!!!!
Vive les Forums

 

Vote positif 0 Vote négatif