Remplir Une combobox selon la valeur d'une autre combobox

Question

Je reviens vers vous les amis pour un peut d'aide

je cherche a utiliser le même code pour alimenter une deuxième Combobox sans doublons et qui dépend de la première Combobox

C'est a dire J'ai la Combobox3 qui fonctionne bien avec le code Suivant et qui est alimenté par la colonne AI sans doublons ni Blanc et trié et qui charge les semaines.

J'aimerai alimenté la Combobox5 par la colonne J sans doublon sans Blanc et trié mais qui dépend de la valeur sélectionné dans la Combobox3 c'est a dire Remplir combobox selon la valeur d'une l'autre combobox

Et Merci d'avance

Private Sub UserForm_Initialize()

  Set F = Sheets("Base")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = F.Range("AI2:AI" & F.[AI65000].End(xlUp).Row)   ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
  Next i
  '--avec tri
  temp = mondico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox3.List = temp

End Sub

Sub Tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
        temp = a(g): a(g) = a(d): a(d) = temp
        g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub

gmb · Answer

Si tu joignais ton fichier, on n'aurait pas à essayer de reconstruire ton UserForm Bye ...