Discussion :

[Foxeuh]

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 :

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

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 :

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

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.

[Marc-L]

Bonjour,

dans ce cas vérifier sur l'autre PC l'adresse de la cellule supérieure gauche des images non effacées …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …