Discussion :

[mentat]

Bonjour, Alors voilà mon problème du jour...

Je charge une image à l'aide d'une combobox, que je vais chercher dans un dossier, dans ma useforme, dans un objet prévue pour celle ci... Jusque là tout va bien... voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Chemin où est collé le fichier Excel
cheminmap = ThisWorkbook.Path
 
'Ajouter l'image "les frangins de DOD" lorsque la combox est vide
If comboboxmaps.Value = "" Then
      Image1.Picture = LoadPicture(cheminmap & "\Images maps\lesfranginsdeDOD.jpg")
      Else
       'Ajouter l'image correspondant à la valeur de la comboboxmaps
chemin_photo = cheminmap & "\Images maps\"
Nom_photo = UserForm1.comboboxmaps.Value
On Error Resume Next
chem_nom = chemin_photo & Nom_photo & ".jpg"
Image1.Picture = LoadPicture(chem_nom)
    End If

Mon problème c'est que je souhaite que lorsque l'image n'est pas chargé parce qu'elle n'existe pas... une autre image soit chargé...

Alors j'ai essayé ce code:

(Dans le code à la place des trois petit point je viens chargé des labels en fonction de la valeur de ma comboboxmaps)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub comboboxmaps_Change()
'Chemin où est collé le fichier Excel
cheminmap = ThisWorkbook.Path

'Ajouter l'image "les frangins de DOD" lorsque la combox est vide
If comboboxmaps.Value = "" Then
      Image1.Picture = LoadPicture(cheminmap & "\Images maps\lesfranginsdeDOD.jpg")
      Else
       'Ajouter l'image correspondant à la valeur de la comboboxmaps
chemin_photo = cheminmap & "\Images maps\"
Nom_photo = UserForm1.comboboxmaps.Value
On Error GoTo Errornoload
chem_nom = chemin_photo & Nom_photo & ".jpg"
Image1.Picture = LoadPicture(chem_nom)
    End If

Exit Sub

....

'Erreur de chargement de l'image
Errornoload:
UserForm1.Image1.Picture = LoadPicture(cheminmap & "\Images maps\lesfranginsdeDOD.jpg")
    Resume Next

End Sub

[/CODE]

Seulement,
- Quand je met Exit Sub il me charge bien les images qui existe et me charge bien l'autre image quand celle que je demande n'existe pas, seulement il ne va pas me charger mes labels...???

-Quand je remplace Exit Sub par Resume next il me charge pas les images correspondant à ma comboboxmaps qui existe et me charge l'autre image, par contre il me charge mes labels...

Comprend pas... lol Merci pour votre aide...

[Krovax]

Bonjour,
Les ... tu ne les lira jamais. Puisque tu quitte la macro juste avant.

Il faut mettre le exit sub juste avant la gestion d'erreur.

Code :

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

1
2
3
4
5
6
 
....
 
Exit Sub
'Erreur de chargement de l'image
Errornoload:

[mentat]

Merci d'avoir répondu aussi vite Krovax ça marche au poile...

Je me doutai que ce ne devait être pas grand chose mais à ce point là... mdr

Merci et bon Dimanche à Tous...

[Krovax]

prochaine fois tu met une pause au tout début de ta macro et tu avance en mode pas a pas comme ca tu verra quelle sont les lignes de code qui sont effectivement lu par ton programme.