Discussion :

[apdf1]

Bonjour,

Jai dossier avec des sous dossiers nommer par leur pays dans ses sous dossiers j'ai des photos.

Dans Excel j'ai un userform avec 10 contrôles image et une combobox pour le choix du pays.
J'aimerai que lorsque je choisis un pays a l'aide de la combobox j'ai les photos correspondant dans les contrôles images.

Je joint mon fichier qui seras plus explicite.

Je vous remercie d'avance.

Cordialement

ApdfUser_Dprapeaux.zip

[Xilian]

Bonjour,

peut-être que ce lien pourrait t'aider:

http://www.excel-easy.com/vba/exampl...ple-pages.html

[apdf1]

Bonjour Xilian,

Je te remercie mais sa ne correspond pas a ma recherche.

Je rechercher avec ma combobox en 1er le pays et en 2éme les images qui corresponde a ce pays.
Peut être en donnant un numéro au images?

Bonne journée et merci encore

Max

[RastaBomboclat]

Bonjour APDF1,

J'ai ici un code qui pourra peut etre d'aider. Il n'est pas terrible mais comme il marche, je crois que c'est déjà bon.
J'ai pensé aussi à joindre ton fichier avec une version comme le code ci-dessous.

Dans le formulaire:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub UserForm_Initialize()
Me.ComboBox1.Value = ""
Me.France_img.Visible = False
Me.Italie_img.Visible = False
Me.RoyaumeUni_img.Visible = False
Me.Allemagne_img.Visible = False
Me.PaysDeGalle_img.Visible = False
Me.Irlande_img.Visible = False
 
End Sub
 
Private Sub ComboBox1_Change()
If Me.ComboBox1.Value = "France" Then
    Me.France_img.Visible = True
Else: Me.France_img.Visible = False
End If
 
If Me.ComboBox1.Value = "Italie" Then
        Me.Italie_img.Visible = True
Else: Me.Italie_img.Visible = False
End If
 
If Me.ComboBox1.Value = "Royaume Uni" Then
    Me.RoyaumeUni_img.Visible = True
Else: Me.RoyaumeUni_img.Visible = False
End If
 
If Me.ComboBox1.Value = "Allemagne" Then
    Me.Allemagne_img.Visible = True
Else: Me.Allemagne_img.Visible = False
End If
 
If Me.ComboBox1.Value = "Pays De Galle" Then
    Me.PaysDeGalle_img.Visible = True
Else: Me.PaysDeGalle_img.Visible = False
End If
 
If Me.ComboBox1.Value = "Irlande" Then
    Me.Irlande_img.Visible = True
Else: Me.Irlande_img.Visible = False
End If
End Sub
 
Private Sub Close_cmd_Click()
Unload Me
End Sub

RastaBomboclat
J'y arriverai, avec un peu de pratique...