Contrôle Image - Combobox

Bonjour à tous,

J'ai un problème avec le code ci-dessous.

J'aimerai écrire :

Si ComboBox_Produits.Value n'a pas d'image dans le dossier

Alors

On affiche rien dans le contrôleur d'image (par exemple Image1.Picture = LoadPicture("")

Private Sub ComboBox_Produits_Change()

    Dim Chemin As String
    Chemin = "I:\Matériels\Pièces détachées\Bibliothèque Photos\" & ComboBox_Produits.Value & ".jpg"
    On Error Resume Next
    Image1.Picture = LoadPicture(Chemin)
    On Error GoTo 0

End Sub

Merci de votre aide !

Bonjour

A tester

 Private Sub ComboBox_Produits_Change()
       If
        Dim Chemin As String
        Chemin = "I:\Matériels\Pièces détachées\Bibliothèque Photos\" & ComboBox_Produits.Value & ".jpg"
    '******* Modification
  Else
          Me.Image1.Picture = LoadPicture(Répertoire & "\" & "Chat.jpg")
' On Error Resume Next
  '    i  Image1.Picture = LoadPicture(Chemin)
    '    On Error GoTo 0
End If
    End Sub

 

Pierrot

j'ai rajouter un If et End If avec un petit chat qui remplace l'image manquante ou un message dans un cadre blanc

Amicalement

Pierrot

Bonjour Pierrot,

Merci pour ta réponse.

Il ne manquerai pas un If à ton code ?

Je sais pas si c'est plus simple, mais si il n'y pas de photo correspondant à la donnée selectionnée dans la ComboBox alors on affiche vide ou blanc le cadre image plutôt qu'une MsgBox..

Merci pour ton aide.

Salut Pierrot,

J'aimerai bien voir ton image de chat, il me plaît bien, mais je suis toujours bloqué.

Je trouve pas la solution.

J'ai copié ton code mais j'ai une erreur de compilation.

Avec un If, un Then viens après une formule non ? Alors (Then) quelque chose, Sinon (Else) quelque chose d'autre, c'est ça non ?

Je commence à m'embrouiller..

Désolé de t'embêter encore, mais peux-tu compléter ton code.

Merci encore !

J'ai trouvé une solution à mon problème me semble t-il.

Désolé d'avoir ouvert une discussion pour pas grand chose. Je préfère l'acharnement à la patience ...

Je partage la solution au cas où que ça puisse être utile.

Dim Chemin As String
    Dim Logo As String

    Chemin = "I:\Matériels\Pièces détachées\Bibliothèque Photos\" & ComboBox_Produits.Value & ".jpg"
    Logo = "I:\Matériels\Pièces détachées\Bibliothèque Photos\Logo.jpg"

    On Error Resume Next
    If Dir("I:\Matériels\Pièces détachées\Bibliothèque Photos\" & ComboBox_Produits.Value & ".jpg") <> "" Then
        Image1.Picture = LoadPicture(Chemin)
    Else
        Image1.Picture = LoadPicture(Logo) ' si on veut un affichage vide, il suffit de créer une image avec rien dessus '
    End If
    On Error GoTo 0

    End Sub

Merci Pierrot pour ta contribution !

A bientôt

Bonjour,

heureux d'avoir pu t'aider

bonne journée

amicalement

Pierrot