Discussion :

[mentat]

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...

[Qwazerty]

Salut
Essai comme ceci

Code :

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

Image1.Picture = LoadPicture("")

++
Qwaz

[mentat]

Ok merci Qwazerty ça fonctionne Nikel...