Re : Appel d'un Msgbox à l'aide de gosub
et bien voila je te remercie c'est juste que je ne connaissais pas le if err then donc maintenant ça marche, c'est un peu lourd, il doit être possible de simplifier mon gros bloubiboulga
photo2:
vue2.Picture = LoadPicture()
If Cells(no_ligne, 40) = "" Then
On Error Resume Next
vue2.Picture = LoadPicture(Chem_nom2)
If Err Then GoTo photo3
Cells(no_ligne, 40) = Cells(no_ligne, 1) & "-2.jpg"
GoTo photo3
End If
On Error Resume Next
vue2.Picture = LoadPicture(Chem_nom2)
If Err Then GoTo nopic2
GoTo photo3
nopic2:
MsgBox " photo 2 introuvable"
Cells(no_ligne, 40) = ""
photo3:
vue3.Picture = LoadPicture()
If Cells(no_ligne, 41) = "" Then
On Error Resume Next
vue3.Picture = LoadPicture(Chem_nom3)
If Err Then GoTo photo4
Cells(no_ligne, 41) = Cells(no_ligne, 1) & "-3.jpg"
GoTo photo4
End If
On Error Resume Next
vue3.Picture = LoadPicture(Chem_nom3)
If Err Then GoTo nopic3
GoTo photo4
nopic3:
MsgBox " photo 3 introuvable"
Cells(no_ligne, 41) = ""
photo4:
vue4.Picture = LoadPicture()
If Cells(no_ligne, 42) = "" Then
On Error Resume Next
vue4.Picture = LoadPicture(Chem_nom4)
If Err Then GoTo Photo5
Cells(no_ligne, 42) = Cells(no_ligne, 1) & "-4.jpg"
GoTo Photo5
End If
On Error Resume Next
vue4.Picture = LoadPicture(Chem_nom4)
If Err Then GoTo nopic4
GoTo Photo5
nopic4:
MsgBox " photo 4 introuvable"
Cells(no_ligne, 42) = ""
Photo5:
vue5.Picture = LoadPicture()
If Cells(no_ligne, 43) = "" Then
On Error Resume Next
vue5.Picture = LoadPicture(Chem_nom5)
If Err Then GoTo photo6
Cells(no_ligne, 43) = Cells(no_ligne, 1) & "-5.jpg"
GoTo photo6
End If
On Error Resume Next
vue5.Picture = LoadPicture(Chem_nom5)
If Err Then GoTo nopic5
GoTo photo6
nopic5:
MsgBox " photo 5 introuvable"
Cells(no_ligne, 43) = ""
photo6:
vue6.Picture = LoadPicture()
If Cells(no_ligne, 44) = "" Then
On Error Resume Next
vue6.Picture = LoadPicture(Chem_nom6)
If Err Then GoTo photo7
Cells(no_ligne, 44) = Cells(no_ligne, 1) & "-6.jpg"
GoTo photo7
End If
On Error Resume Next
vue6.Picture = LoadPicture(Chem_nom6)
If Err Then GoTo nopic6
GoTo photo7
nopic6:
MsgBox " photo 6 introuvable"
Cells(no_ligne, 44) = ""
photo7:
vue7.Picture = LoadPicture()
If Cells(no_ligne, 45) = "" Then
On Error Resume Next
vue7.Picture = LoadPicture(Chem_nom7)
If Err Then GoTo photo8
Cells(no_ligne, 45) = Cells(no_ligne, 1) & "-7.jpg"
GoTo photo8
End If
On Error Resume Next
vue7.Picture = LoadPicture(Chem_nom7)
If Err Then GoTo nopic7
GoTo photo8
nopic7:
MsgBox " photo 7 introuvable"
Cells(no_ligne, 45) = ""
photo8:
vue8.Picture = LoadPicture()
If Cells(no_ligne, 46) = "" Then
On Error Resume Next
vue8.Picture = LoadPicture(Chem_nom8)
If Err Then GoTo photo9
Cells(no_ligne, 46) = Cells(no_ligne, 1) & "-8.jpg"
GoTo photo9
End If
On Error Resume Next
vue8.Picture = LoadPicture(Chem_nom8)
If Err Then GoTo nopic8
GoTo photo9
nopic8:
MsgBox " photo 8 introuvable"
Cells(no_ligne, 46) = ""
photo9:
vue9.Picture = LoadPicture()
If Cells(no_ligne, 47) = "" Then
On Error Resume Next
vue9.Picture = LoadPicture(Chem_nom9)
If Err Then GoTo loadok
Cells(no_ligne, 47) = Cells(no_ligne, 1) & "-9.jpg"
GoTo loadok
End If
On Error Resume Next
vue9.Picture = LoadPicture(Chem_nom9)
If Err Then GoTo nopic9
GoTo loadok
nopic9:
MsgBox " photo 9 introuvable"
Cells(no_ligne, 47) = ""
loadok:
End Sub