G
G'Claire
Guest
Bonsoir le forum,
Voila, j'ai un UserForm "ResultatArchive" qui est le résultat d'une recherche.
Dans celui-ci j'ai une photo qui lui appartient et qui est récupérer par le code suivant (Dont je remercie l'auteur du code):
Private Sub TextBox1_Change()
Dim Cell As Object
On Error GoTo gestion
With Range("A8:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(TextBox1, LookIn:=xlValues)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")
Label16.Visible = False
End With
Exit Sub
gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then
Label16.Caption = "Pas de photo disponible pour cette référence. "
Image1.Picture = LoadPicture()
End If
End Sub
Ce que j'aimerai c'est quand je supprime cette référence, pouvoir supprimer cette photo associée.
Je vous remercie par avance, G'Claire
Voila, j'ai un UserForm "ResultatArchive" qui est le résultat d'une recherche.
Dans celui-ci j'ai une photo qui lui appartient et qui est récupérer par le code suivant (Dont je remercie l'auteur du code):
Private Sub TextBox1_Change()
Dim Cell As Object
On Error GoTo gestion
With Range("A8:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(TextBox1, LookIn:=xlValues)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")
Label16.Visible = False
End With
Exit Sub
gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then
Label16.Caption = "Pas de photo disponible pour cette référence. "
Image1.Picture = LoadPicture()
End If
End Sub
Ce que j'aimerai c'est quand je supprime cette référence, pouvoir supprimer cette photo associée.
Je vous remercie par avance, G'Claire