Bonsoir à tous,

Un petit soucis tout bête je cherche à supprimé en VBA, une image loader en VBA dans une boite à image en fonction de la valeur d'une combobox.

voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim Cellule21 As Range
If Combobox1.Value = "" Then
Image3.Picture(Cellule21).Delete 'Ici je cherche à suprimé mon image...
Else
 For Each Cellule21 In Range("tmaps").Columns(5).Cells
 If Cellule21.Offset(, -4) = Combobox1.Value Then Image3.Picture = LoadPicture(cheminxls & "\Images films\Fichier prog\" & Cellule21.Value & ".jpg")
 Next
 End If
Merci pour votre aide...