Liste déroulante en fonction d'un OptionButton

Bonjour à tous,

Je voudrais associer une ComboBox avec des listes déroulantes en fonction du choix d'un OptionButton.

Mais listes ce trouvent sur un feuille nommée "Listes".

Ça fonctionne quand je lance ma UserForm depuis la feuille "Listes" mais ne fonctionne pas quand je la lance depuis ma feuille "Base".

J'aurais besoin d'un petit coup de main.

Merci

Private Sub OptionButton1_Click()
 RemplitCombo "Dépense"
End Sub
Private Sub OptionButton2_Click()
 RemplitCombo "Recette"
End Sub

Sub RemplitCombo(Categorie)
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([A2], [A65000].End(xlUp))
    If c.Offset(0, 1) Like Categorie Then
     If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
    End If
  Next c
  Me.ComboBox1.List = MonDico.items
  'temp = MonDico.items       ' le tableau temp() reçoit les éléments de MonDico
  'Call Tri(temp, LBound(temp), UBound(temp))     ' tri
  'Me.ComboBox1.List = temp
  Me.ComboBox1.ListIndex = 0
End Sub

Bonjour essaye de changer

For Each c In Range([A2], [A65000].End(xlUp))

Part

For Each c In sheets ("listes").Range([A2], [A65000].End(xlUp))

Fred

Salut fred2406,

Merci pour ta réponse. J'ai fait la modification mais ça ne fonctionne toujours pas.

En attendant je passe par un Array mais sur certaines listes en cas de modification ça va être plus long que de faire cette modification sur la feuille.

met a dispo un fichier test

fred

Je mets mon fichier.

Il n'en est qu'au début. La USF est encore vide.

Merci de ton aide en tout cas.

Je viens de trouver tout seul

J'ai regarder les listes que je charge à l'ouverture de ma USF

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
ComboBox1.Value = ""
'ComboBox1.List = Array("", "Subventions / Dons", "Cotisations licences", "Divers")
ComboBox1.RowSource = ("Recettes")

End If
End Sub

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then
ComboBox1.Value = ""
'ComboBox1.List = Array("", "Fédération / Ligue / Comité 22", "Fournisseur", "Note de frais", "Assurance", "Autres", "Retrait liquide CA")
ComboBox1.RowSource = ("Depenses")
End If
End Sub

Ok

tant mieux...

bonne journée

fred

Bonne journée à toi également