Userform avec multiple combobox

[nicos3390]

Bonjour,
lorsque je clique et j'ouvre mon userform, 2 combobox apparaissent, je clique sur la première, puis la seconde et enfin un prix devrait apparaître en dessous.

si je sélectionne Foot, le prix sera le bon à chaque fois, mais dès que je sélectionne un autre sport, le prix ne correspond pas à l'objet.

Je ne parviens par à récupérer le bon montant en face du produit, ça me paraît simple mais je bloque.

Qqun pourrait m'éclairer?


Amitié,

Nicolas

 

[BOISGONTIER]

Re : Userform avec multiple combobox

Bonjour,


Voir PJ

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("sport")
  For Each c In f.Range("C3:C" & f.[C65000].End(xlUp).Row)
    If c <> "" Then Me.ComboBox1.AddItem c
  Next
End Sub

Private Sub ComboBox1_click()
  Set début = f.Range("C2:C" & f.[C65000].End(xlUp).Row).Find(what:=Me.ComboBox1.Value)
  Me.ComboBox2.List = début.Offset(, 1).Resize(début.MergeArea.Count, 2).Value
End Sub

Private Sub combobox2_click()
  Me.TextBox1.Value = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
End Sub

JB

 

[nicos3390]

Re : Userform avec multiple combobox

Merci,
en effet, cela fonctionne, mais dans mon cas, je vais avoir plusieurs infos qui vont être reportées en même temps que prix, comme montant ht, tva, montant ttc ....
donc je ne veux pas que mon montant n'apparaisse dans la combobox2, est-il possible d'avoir une seconde solution?

 

[nicos3390]

Re : Userform avec multiple combobox

oui merci, mais je dois laisser mes cellules fusionnées.

 

[BOISGONTIER]

Re : Userform avec multiple combobox

IL suffit de cacher les colonnes dans ComboBox2

Voir PJ

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("sport")
  For Each c In f.Range("C3:C" & f.[C65000].End(xlUp).Row)
    If c <> "" Then Me.ComboBox1.AddItem c
  Next
End Sub

Private Sub ComboBox1_click()
  Set début = f.Range("C2:C" & f.[C65000].End(xlUp).Row).Find(what:=Me.ComboBox1.Value)
  Me.ComboBox2.List = début.Offset(, 1).Resize(début.MergeArea.Count, 2).Value
End Sub

Private Sub combobox2_click()
  Set result = f.Range("D2:D" & f.[D65000].End(xlUp).Row).Find(what:=Me.ComboBox2.Value)
  Me.TextBox1.Value = result.Offset(, 1)
End Sub

JB

 

[nicos3390]

Re : Userform avec multiple combobox

Merci, ça me semble assez compliqué.
surtout qu'en ajoutant les colonnes dont je vous ai parlé, c'est très difficile de récupérer les autres infos.

je ne peux pas faire autrement que de laisser la fusion sur le choix du marché, enfin je pense ..

 

[BOISGONTIER]

Re : Userform avec multiple combobox

Bonjour,

Voir PJ

JB

 

[nicos3390]

Re : Userform avec multiple combobox

Merci Jb.

bonne journée

 

[nicos3390]

Re : Userform avec multiple combobox

Bonjour messieurs, bonjour Jb,
peux tu me dire et m'expliquer cette formule?

Me.ComboBox2.List = début.Offset(, 1).Resize(début.MergeArea.Count, 2).Value


merci de ton aide

 

[BOISGONTIER]

Re : Userform avec multiple combobox

Bonjour,

Set début = f.Range("C2:C" & f.[C65000].End(xlUp).Row).Find(what:=Me.ComboBox1.Value)

Donne l'adresse de la cellule où est située la valeur du 1er niveau (Foot e.g.)

début.Offset(, 1)

Donne l'adresse de la cellule à droite de début

début.MergeArea.Count

Donne le nombre de cellules fusionnées (6 pour Foot)

début.Offset(, 1).Resize(début.MergeArea.Count, 2).Value

Donne le champ contenant les codes et les prix pour Foot (6 lignes x 2 colonnes)

JB

 

[nicos3390]

Re : Userform avec multiple combobox

Parfait, merci, mais si j'ajoute une ligne de plus, une nouvelle gamme, comme le basket dans mon cas, et que je mets 3 produits sur cette référence, ça me sort une erreur!

 

[BOISGONTIER]

Re : Userform avec multiple combobox

Voir Pj

JB

 

[nicos3390]

Re : Userform avec multiple combobox

Merci Jb, c'est ce que je voulais.