doublon combo

[dev_co]

Bonsoir
Comment peut on éviter les doublons dans le combo ?
je voudrai suivre ma prod de jardin sauf que j'aimerai bien avoir selon l'année mes légumes et leur variétés sauf que :
Déjà si il y a 2 noms identiques > juste UN s'affiche
que si c'est UNIQUE il s'affiche auto , sinon on liste entre les autres dans VAR ! et là je choisi !
Radis blanc
Carotte Tilques
Carotte nantaise
Dans la Combo 1 je dois voir CAROTTE et dans var on doit me proposer : TILQUES ou NANTAISE
Si je choisi radis , alors BLANC s'affiche tout seul
Merci bien

 

[BOISGONTIER]

Re : doublon combo

Bonjour,

Dim dico

Private Sub UserForm_Initialize()
  Set f = Sheets("recap")
  Set dico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row)
    dico(c.Value) = IIf(dico.exists(c.Value), dico(c.Value) & "*" & c.Offset(, 1), c.Offset(, 1))
  Next c
  Me.ComboBox2.List = dico.keys
End Sub

Private Sub comboBox2_Click()
  Me.ComboBox3.List = Split(dico(Me.ComboBox2.Value), "*")
End Sub

JB

 

[dev_co]

Re : doublon combo

Bonsoir
Merci , mais lorsque je clique sur "année" c'est dejà vide
donc je peux pas aller plus loin !

 

[Roland_M]

Re : doublon combo

bonsoir,

comme ceci !?
celui de BOISGONTIER avec la rajout des feuilles années !?

 

[dev_co]

Re : doublon combo

Re , merci bien
sauf que quand le choix est tout SEUL , les autres boites sont VIDE ?
Merci pour la suite de mon Pb
Bonne soirée

 

[Roland_M]

Re : doublon combo

bonsoir,

et comme ceci !?
c'est pas facile car j'ai pas bien compris ce que tu souhaites !?

 

[dev_co]

Re : doublon combo

Bonjour
Si Roland c'est bon , sauf que il manque ce cas :

Si je choisi radis , alors BLANC s'affiche tout seul

Aussitôt qu'on valide Radis alors Blanc s'affiche puis que là c'est variété unique
Merci

 

[Roland_M]

Re : doublon combo

Bonjour,

voilà !

 

[dev_co]

Re : doublon combo

Merci bien , nickel
j'étais dessus avec un IIF mais je ne m'en sortait pas
le SPLIT j'y avais pas pensé je l'ai utilisé qu'une fois !!
Dico : connaissais pas ?
Je vais aller fouiner pour comprendre tout ça