liste cascade (erreur propriété value ne correspond pas)

[limat72]

bonjour le forum,

avec le code ci-dessus, j'ai une erreur de code(comme le titre)

Private Sub UserForm_Initialize()
CbxOpe.RowSource = "A2:A" & [A65000].End(xlUp).Row

Set MonDico = CreateObject("Scripting.Dictionary")
temp = [Categorie] ' pour recherche rapide 0.14 s pour 20.000 éléments
For i = 1 To UBound(temp, 1)
If Not MonDico.Exists(temp(i, 1)) Then MonDico.Add temp(i, 1), temp(i, 1)
Next i
Me.CbxCategorie = MonDico.items
End Sub

Private Sub CbxCategorie_Change()
d = Application.Match(Me.CbxCategorie, [Categorie], 0)
Me.ListBox1.Clear
For i = d To d + Application.CountIf([Categorie], Me.CbxCategorie) - 1
Me.ListBox1.AddItem Range("Sous_Categorie")(i)
Next i
End Sub


je vous joins le fichier

merci de votre aide

limat

 

[JCGL]

Re : liste cascade (erreur propriété value ne correspond pas)

Bonjour à tous,

Tu appelles ton UserForm1 UserForm dans l'Initialyze

A+

 

[limat72]

Re : liste cascade (erreur propriété value ne correspond pas)

Bonjour à tous,

Tu appelles ton UserForm1 UserForm dans l'Initialyze

A+

bonjour JCGL,

merci de m'aider....le problème si je nomme mon usf en userform1, il s'ouvre mais je n'ai plus rien dans mes combobox!!!

je suis sur que l'erreur est toute bête mais je ne la vois pas...
@+

 

[Lii]

Re : liste cascade (erreur propriété value ne correspond pas)

Bonsoir Tous,

à tester le

Private Sub UserForm_Initialize()
  CbxOpe.RowSource = "A2:A" & [A65000].End(xlUp).Row
 Set Mondico = CreateObject("Scripting.Dictionary")
  temp = [Categorie] ' pour recherche rapide 0.14 s pour 20.000 éléments
  For i = 1 To UBound(temp, 1)
    If Not Mondico.Exists(temp(i, 1)) Then Mondico.Add temp(i, 1), temp(i, 1)
  Next i
  cont = Mondico.keys
  For i = 0 To Mondico.Count - 1
  Me.CbxCategorie.AddItem cont(i)
  Next i
End Sub

Un fichier avec une autre organisation.

 

[limat72]

Re : liste cascade (erreur propriété value ne correspond pas)

Bonsoir Tous,

à tester le

Private Sub UserForm_Initialize()
  CbxOpe.RowSource = "A2:A" & [A65000].End(xlUp).Row
 Set Mondico = CreateObject("Scripting.Dictionary")
  temp = [Categorie] ' pour recherche rapide 0.14 s pour 20.000 éléments
  For i = 1 To UBound(temp, 1)
    If Not Mondico.Exists(temp(i, 1)) Then Mondico.Add temp(i, 1), temp(i, 1)
  Next i
  cont = Mondico.keys
  For i = 0 To Mondico.Count - 1
  Me.CbxCategorie.AddItem cont(i)
  Next i
End Sub

Un fichier avec une autre organisation.

bonsoir Lii,le forum,

merci de ton aide..cela marche...

ta 2e solution est bien aussi..je vais voir si je l'adapte...

par contre..je ne vois pas pkoi le code que j'ai mis ne marche pas avec mon fichier et il marche pour les codes postaux de Mr boisgontierjacques.free.fr

mais l'essentiel c'est que cela marche..

merci encore

limat