'AFFICHAGE DES IMAGES dans userform après click sur Lv1
Private Sub Lv1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Item <> "" Then
Item.ForeColor = IIf(Item.ForeColor = RGB(0, 0, 255), RGB(0, 0, 0), RGB(0, 0, 255))
For i = 1 To Item.ListSubItems.Count
Item.ListSubItems(i).ForeColor = Item.ForeColor
Next
End If
Item.Selected = 0
Image_vue_photo.Picture = LoadPicture()
If Lv1.ListItems.Count > 0 Then
Dim plante As String
Dim Image As String
Dim NomImage As String
On Error Resume Next
' Pensez à créer un dossier "\plantes\" avec les photos, dans le même dossier que ficheir excel
Image = ThisWorkbook.Path & "\plantes\" & Lv1.SelectedItem & ".jpg"
If Dir(Image) <> "" Then
Image_vue_photo.Picture = LoadPicture(Image)
Else
Image_vue_photo.Picture = LoadPicture()
End If
End If
End Sub