doublon combo

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Juin 2015

• #2

Re : doublon combo

Bonjour,

Code:

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

 

Pièces jointes

• légumes.xls

  49 KB · Affichages: 15
• légumes.xls

  49 KB · Affichages: 12
• légumes.xls

  49 KB · Affichages: 17

Dernière édition: 3 Juin 2015

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 3 Juin 2015

• #3

Re : doublon combo

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Juin 2015

• #4

Re : doublon combo

bonsoir,

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

 

Pièces jointes

• légumes_2.xls

  52.5 KB · Affichages: 9

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 3 Juin 2015

• #5

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Juin 2015

• #6

Re : doublon combo

bonsoir,

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

 

Pièces jointes

• légumes_3.xls

  52 KB · Affichages: 10

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 4 Juin 2015

• #7

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 4 Juin 2015

• #8

Re : doublon combo

Bonjour,

voilà !

 

Pièces jointes

• légumes_4.xls

  54.5 KB · Affichages: 11

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 4 Juin 2015

• #9

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

 

Vote positif 0 Vote négatif