Image sur USF en fonction de la Combobox

Bonjour,

J'aimerai modifier mon code qui a était réaliser par Mercatog que je salut au passage. J'ai un USF avec une combobox et j'aimerai afficher sur l'USF le blason de la région en fonction de la combobox.

Ci joint mon fichier avec les explications.

Merci d'avance de votre aide.

Cordialement.

Max

Salut

Il te faut un dossier ou tu met toute tes images.
Récuprer ce dossier

et dans le combobox change tu met ce code:

Code:

---

1 2 3 4 5 6 7 8 9

Dim Fen, ImageX As StdPicture   ChDir "c:\IMAGES\"   Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")   Set ImageX = LoadPicture(Fen)   Set Image1.Picture = ImageX

---

après c:\images\ tu rajoutes :

Code:

---

& combobox1.value & "extansion du format image"

---

A+

Bonjour sdispro

Je te remercie d'avoir répondu j'ai fait ceci mes sa ne fonctionne pas ?

Code:

---

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 28 29 30 31 32 33 34 35 36

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1 Dim R As Range 'déclare la variable r (Recherche) Dim Ld As Integer 'déclare la variable ld (Ligne de Départ) Dim Lf As Integer 'déclare la variable lf (Ligne de Fin) Dim i As Integer 'déclare la variable i (incrément)       Dim Fen, ImageX As StdPicture   ChDir "C:\Users\MaVal\Desktop\Regions\Images\alsace.jpg" & ComboBox1.Value & "jpg"   Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")   Set ImageX = LoadPicture(Fen)   Set Image1.Picture = ImageX Me.ListBox1.Clear 'vide la ListBox1 With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" Lf = .Cells(.Rows.Count, 8).End(xlUp).Row 'définit la ligne de fin Set R = .Columns(8).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche If Not R Is Nothing Then 'condition : si il existe au moins une occurrence Ld = R.Row + 1 'définit la ligne de départ Set R = Nothing For i = Ld To Lf 'boucle de la ligne de départ à la ligne de fin If UCase(.Cells(i, 8)) <> .Cells(i, 8) Then 'si la couleur de la cellule est "jaune clair", sort de la procédure Me.ListBox1.AddItem .Cells(i, 8) 'ajoute la valeur de la cellule en colonne H à la ListBox1 Else Exit For End If Next i 'prochaine ligne de la boucle Else 'sinon MsgBox "Région non trouvée !" 'message End If 'fin de la condition End With 'fin de la prise en compte de l'onglet "Feuil1" End Sub

---

J'ai du certainement me planter

Merci d'avance

Bonne journée

Max

re,

avec ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Fen, ImageX As StdPicture   Private Sub CommandButton1_Click()     ChDir "C:\Users\SDISPRO\Desktop\Nouveau dossier\"   Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")   Set ImageX = LoadPicture(Fen)   Set Image1.Picture = ImageX   End Sub

---

Remplace mon chemin d'accès par le tien.

Logiquement tu devrait avoir le repertoire selectionner qui s'ouvre.
Si tuc lique sur l'image elle se charge.
Si tu es a cette etape c'est tout bon.
Pour moi cela marche

Re:

Code:

---

1 2 3

Filename = "C:\Users\SDISPRO\Desktop\Nouveau dossier\" & ComboBox1 & ".jpg"   Image1.Picture = LoadPicture(Filename)

---

Oubli pas de mettre les noms de fichier dans la source du combobox.

Je te garanti que cela marche.

Tiens moi au jus.

Re,

Je ne te suis plus du tous je suis perdu? je n’aie aucun CommandButton1 ou alors il faut que je fasse un autre USF?

@+
Max

Excuse moi de t'avoir perdu, je suis parti dans tous les sens.

1-Tu crée un Userform simple
2-Tu met un cadre image
3-Tu met un combobox
4-Tu crée un dossier ou tu veux avec le nom des images a charger
5-Tu alimente ta combobox avec le nom de ces images
6-Tu récupère le chemin du dossier et tu remplace "C:\Users\SDISPRO\Desktop\Nouveau dossier\"
7-sa marche

Re,

Regarde mon code il doit y avoir un bléme
@+

Le fichier en pj

Tout fonctionne

Re,

Exact tous fonctionne je te remercie et te souhaite une bonne soirée.

@+
Max

Tant mieux alors

N'oubli pas de marquer l'affaire comme résolu:ccool: