inserer automatiquement une meme image dans plusieurs feuilles

[mimoune]

Salut à tous,
Je voudrais savoir comment je pourrais insérer UNE image dans plusieurs feuilles. Actuellement je dois insérer cette image dans une feuille puis je passe à l'autre feuille et je réinsère. Je voudrais automatiser la tâche pour l'insérer dans plusieurs feuilles et dans une cellule précise de chaque feuilles

 

[Temjeh]

Re : inserer automatiquement une meme image dans plusieurs feuilles

Bonjour

Voici la macro a adapté ici bon pour 3 feuilles (For n = 1 To Sheets.Count pour tous)met ce que tu veut et met le bon chemin:

Sub Macro1()
i = InputBox(prompt:="Entrer la cell ex: B12", Title:="New")
On Error GoTo fin
For n = 1 To 3
Sheets(n).Activate
Range(i).Select
ActiveSheet.Pictures.Insert("C:\Documents and Settings\Temjeh\Bureau\Go.gif")
Next n
fin:
End Sub

A+

Temjeh

 

[mimoune]

Re : inserer automatiquement une meme image dans plusieurs feuilles

Merci,

Donc j'ai mis ce code dans la première feuille du claseur et j'ai executé la macro. A ce moment la, ça m'a demandé la cellule et ça à inséré l'image que dans une feuille et pas trois :/.

Ai-je fais une fausse manip ?

 

[mimoune]

Re : inserer automatiquement une meme image dans plusieurs feuilles

Oops
Il faut toujours réfléchir avant de poster -_-'.
Mon problème est réglé ^^
Merci Temjeh