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

Rechercher des sujets similaires à "recherche combobox"