Recherche par combobox
Bonjour,
Voila j'ai un formulaire avec deux combobox en cascade une recherche le continent et l'autre recherche le pays.
j'ai dans un dossier 5 continents et dans chaque continent des sous dossiers avec les pays correspondant dans chaque pays j'ai des billets et j'aimerais après avoir choisis le continent, le pays avoir les billets s'afficher dans le formulaire.
J'ai comme code ceci mais sa ne fonctionne pas
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("A2").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 = "J:\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
Je joint mon fichier qui seras plus explicite
Je vous remercie d'avance
Cordialement
Max
Bonsoir MavalMax, bonsoir le forum,
Je t'ai répondu. Ailleurs...