Bonjour
Je voudrais avoir un code pour la suppression en Range("E6:H15")
car Jai essayer se code le problème il me supprime les autres images de ma page .

Merci d'avance pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub test()
 Dim sha As Shape
 For Each sha In ActiveSheet.Shapes
     If sha.Type = msoPicture Then sha.Delete
 Next sha
 End Sub
Voici le code qui fonctionne pour l'insertion.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Inser_Images()
 Dim image As Variant, L As Single, T As Single, W As Single, H As Single, plagerecept
 With ActiveSheet
.Unprotect ("11")
 Set plagerecept = .Range("E6:H15")
 'coordonnées  la plage de réception
 L = plagerecept.Left
 T = plagerecept.Top
 W = plagerecept.Width
 H = plagerecept.Height
 image = Application.GetOpenFilename
 If image <> False Then
 .Shapes.AddPicture image, True, True, L, T, W, H
 End If
     .Protect ("11")
  End With
 
End Sub
Sub Sup_Images()
 Dim image As Variant, L As Single, T As Single, W As Single, H As Single, plagerecept
 With ActiveSheet
.Unprotect ("11")
 Set plagerecept = .Range("E6:H15")
 'coordonnées  la plage de réception
 L = plagerecept.Left
 T = plagerecept.Top
 W = plagerecept.Width
 H = plagerecept.Height
    'image = Application.GetOpenFilename
    If image <> False Then
    '.Shapes.AddPicture image, True, True, L, T, W, H
     End If
 
     .Protect ("11")
  End With
 
End Sub