Code qui ne fonctionne pas toujours
Bonjour à tous,
Je suis nouveau dans le monde de la programmation excel, et je me retrouve face à un problème que je n'arrive pas à résoudre.
Je suis entrain de créer une macro dans laquelle j'intègre un code permettant d'afficher une photo dans une case, ainsi qu'un code permettant de la supprimer. Ce code apparait à différents endroits dans la macro.
Voici le code permettant d'afficher l'image :
Code:
1
2
3
4
5
| Worksheets("P9 chaleur tournante").Select
Range("C40:D41").ClearContents
ActiveSheet.Pictures.Insert("F:\MF\Montage Fours\CheckList\media\AttentionAmerique.jpg").Select
Selection.Left = Range("C45").Left
Selection.TOP = Range("C45").TOP |
Et le code utilisé pour la supprimer :
Code:
1
2
3
4
5
6
7
| With Worksheets("P9 chaleur tournante")
For Each Sh In .Shapes
If Not Application.Intersect(Sh.TopLeftCell, .Range("C45")) Is Nothing Then
Sh.Delete
End If
Next Sh
End With |
Voici mon problème : Sur le PC que j'ai utilisé pour créer la macro, ce code fonctionne très bien. Seulement, lorsque je souhaite utiliser cette macro sur un autre PC, le code d'affichage fonctionne pour toutes les images que je souhaite afficher, mais le code pour supprimer les images ne fonctionne pas pour toutes les images. C'est à dire que certaines images sont effacées, mais pas d'autres. J'utilise pourtant le même code pour chaque image.
J'ai déjà vérifié le niveau de sécurité des macros sur le PC, ainsi que les références. Tout est identique sur les 2 PC.
