Hello,
Mon plus gros pb c'était que j'avais entré en manuel les chemins et je m'étais planté dans l'extension fichier Du coup la fonction plantait (mémo: récupérer une macro d'import de chemin fichiers c'est mieux)
Bon sinon, en fait à chaque changement d'image, apparemment avant il faut supprimer le chemin dans la box image, je pensais qu'on pouvait juste écraser le chemin par un autre après chaque changement, mais non c'était trop simple.
Fichier en PJ, le pb d'image est résolu, mais pour avoir tester l'insertion de kit, après chaque validation, il y'a un bug.
Code de gestion d'image :
Private Sub ComboBox_RefKit_Change()
Dim fichier As String 'déclaration d'une variable, pour gestion du chemin du fichier image en format texte
On Error GoTo BUG_CHEMIN_IMAGE
Me.Image_Kit.Picture = Nothing 'Suppression de l'ancienne image pour en insérer une nouvelle à chaque changement d'image
fichier = Application.WorksheetFunction.VLookup(ComboBox_RefKit.Value, Worksheets("Image Kit").Range("A1:B20000"), 2, 0) 'fonction recherchev dans vba, recherche chemin image en colonne B (2) en fonction de la valeur de la combobox, dans la plage A1->B20 000
Me.Image_Kit.Picture = LoadPicture(fichier) 'charge l'image
BUG_CHEMIN_IMAGE: 'si erreur chemin fichier image alors process de gestion d'erreur particulier
If Err Then 'si erreur alors
On Error Resume Next 'si erreur passe ligne
Me.Image_Kit.Picture = Nothing 'supprime l'ancienne image si erreur
End If
End Sub