Image sur USF en fonction de la Combobox

Question

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. Maval...

Dovidus · Answer

Un peu tard certes, mais je réponds à ta question:

Crée un Userform classique. Ajoute une liste déroulante nommer "Combobox1" et une zone d'image nommée "Frame1".

Dans les propriétés de Frame1, pour un affichage optimal: Autosize = false et PictureSizeMode = 1-fm...Stretch.

Place tes photos dans un répertoire, en les nommant comme tu les nommeras dans ta combo (si .additem = "Alsace" ton fichier jpg doit s'appeller "Alsace")

Private Sub UserForm_initialize()

With ComboBox1

.AddItem "Alsace"

.AddItem "Aquitaine"

End With

End Sub

Private Sub ComboBox1_Click()

'Définis ici le chemin du dossier où sont tes photos!

'ActiveWorkbook.Path donne le chemin ou est enregistré ton fichier Excel

chemin_photo = ActiveWorkbook.Path

Nom_photo = UserForm1.ComboBox1.Value

Chem_nom = chemin_photo & "/" & Nom_photo & ".jpg"

UserForm1.Frame1.Picture = LoadPicture(Chem_nom)

End Sub

Voilà, en espérant qu'il n'est pas trop tard!

Dovidus