Option Explicit
Dim F As Worksheet
Dim TV As Variant
Private Sub UserForm_Initialize()
Dim MonDico As Object
Dim I As Integer
Set F = Sheets("Feuil1")
TV = F.Range("A1").CurrentRegion
Set MonDico = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(TV, 1)
MonDico(TV(I, 1)) = ""
Next I
Me.ComboBox1.List = MonDico.keys
End Sub
Private Sub ComboBox1_Change()
Dim MonDico As Object
Dim I As Integer
Set MonDico = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(TV, 1)
If TV(I, 1) = Me.ComboBox1.Value Then MonDico(TV(I, 2)) = ""
Next I
Me.ComboBox2.List = MonDico.keys
End Sub
Private Sub ComboBox2_Change()
Dim MonDico As Object
Dim I As Integer
Dim F As String
Dim CH As String
Dim J As Byte
If Me.ComboBox1.Value = "" Then
MsgBox "Vous devez renseigner le continent !"
Me.ComboBox1.SetFocus
Exit Sub
End If
Set MonDico = CreateObject("Scripting.Dictionary")
J = 1
For I = 2 To UBound(TV, 1)
If TV(I, 1) = Me.ComboBox1.Value And TV(I, 2) = Me.ComboBox2.Value Then
CH = "E:\Le Monde\User_Animation_Monnaies\Continent\" & Me.ComboBox1.Value & "\" & Me.ComboBox2.Value & "\"
F = Dir(CH & "*.gif")
Do While F <> ""
If J = 11 Then Exit Sub
Me.Controls("Label" & J).Caption = F
Me.Controls("Image" & J).Picture = LoadPicture(CH & F)
J = J + 1
F = Dir
Loop
Exit For
End If
Next I
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub