Discussion :

[eno97]

Bonjour tout le monde

voilà, j'ai une feuille Couverture sur laquelle il y a un certains nombre d'images. Je précise qu'il n'y a que des images sur cette feuille, pas de texte ou autres.

Je cherche en fait, à créer un code qui parcourt la totalité des images et qui ressemblerait à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For Each img In Worksheets("Couverture")
            If img.ShapeRange.Title = Worksheets("livre").Cells(i + 1, 7) Then couv = img
        Next

où img est de type object
mais voilà, le code ci-dessus ne fonctionne pas, il bloque à la ligne For Each

Quelqu'un pourrait me venir en aide svp?

merci d'avance

[Jean-Philippe André]

salut,

les images sont des Shapes.

Tu as des exemples de boucle for each sur les Shapes dans la
http://excel.developpez.com/faq/inde...primeAllShapes
http://excel.developpez.com/faq/inde...peFormeFeuille

voir aussi la partie insertion d'image, toujours dans la
http://excel.developpez.com/faq/inde...InsertionImage

[eno97]

Merci beaucoup, ça fonctionne mieux comme ça

par contre, j'ai une autre question qui fait suite à la première

Je souhaiterai insérer cet objet Shape dans une image présente sur un userform

j'ai vu ici qu'il était possible de faire ce que je souhaite. Mais, d'après ce que j'ai compris, cela passe par une image temporaire qui est enregistrée sur le disque. Je voudrais savoir s'il existait une solution qui permettait de ne pas avoir recours à un fichier temporaire?

merci