J'aurais besoin de votre aide pour d=E9finir une "row source" changeante
dans mon combobox2.
Avec mon combobox1, je choisis le nom d'une cie dans la colonne A.
Supposons que je choisisse la cie DEF; la cellule active ici devient
A6. Je fais passer la cellule active de A6 =E0 A7 et avec le combobox2
je dois choisir le no du produit:
Je voudrais qu'ici, "le rowsource" parte =E0 406 et s'arr=EAte =E0 494
obligeant ainsi l'usager =E0 ne choisir que le nos correpondant au nom
de la cie en colonne A.... Sauriez-vous comment faire?
Choix d'une compagnie et d'un produit dans un UserForm
Noms de champ dynamiques: compagnies ÞCALER(x!$A$2;;;NBVAL(x!$A:$A)-1) produits ÞCALER(x!$B$2;;;NBVAL(x!$B:$B)-1)
Private Sub UserForm_Initialize() Set MonDico = CreateObject("Scripting.Dictionary") temp = [compagnies] ' 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.ComboBox1.List = MonDico.items End Sub
Private Sub ComboBox1_Change() d = Application.Match(Me.ComboBox1, [compagnies], 0) Me.ListBox1.Clear For i = d To d + Application.CountIf([compagnies], Me.ComboBox1) - 1 Me.ListBox1.AddItem Range("produits")(i) Next i End Sub
http://cjoint.com/?cAp3gusVZg
JB
On 26 fév, 15:39, "Denys" wrote:
Bonjour à tous,
J'aurais besoin de votre aide pour définir une "row source" changeante dans mon combobox2.
Avec mon combobox1, je choisis le nom d'une cie dans la colonne A. Supposons que je choisisse la cie DEF; la cellule active ici devient A6. Je fais passer la cellule active de A6 à A7 et avec le combobox2 je dois choisir le no du produit:
Je voudrais qu'ici, "le rowsource" parte à 406 et s'arrête à 494 obligeant ainsi l'usager à ne choisir que le nos correpondant au nom de la cie en colonne A.... Sauriez-vous comment faire?
Choix d'une compagnie et d'un produit dans un UserForm
Noms de champ dynamiques:
compagnies =DECALER(x!$A$2;;;NBVAL(x!$A:$A)-1)
produits =DECALER(x!$B$2;;;NBVAL(x!$B:$B)-1)
Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
temp = [compagnies] ' 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.ComboBox1.List = MonDico.items
End Sub
Private Sub ComboBox1_Change()
d = Application.Match(Me.ComboBox1, [compagnies], 0)
Me.ListBox1.Clear
For i = d To d + Application.CountIf([compagnies], Me.ComboBox1) - 1
Me.ListBox1.AddItem Range("produits")(i)
Next i
End Sub
http://cjoint.com/?cAp3gusVZg
JB
On 26 fév, 15:39, "Denys" <denys.perrea...@rbc.com> wrote:
Bonjour à tous,
J'aurais besoin de votre aide pour définir une "row source" changeante
dans mon combobox2.
Avec mon combobox1, je choisis le nom d'une cie dans la colonne A.
Supposons que je choisisse la cie DEF; la cellule active ici devient
A6. Je fais passer la cellule active de A6 à A7 et avec le combobox2
je dois choisir le no du produit:
Je voudrais qu'ici, "le rowsource" parte à 406 et s'arrête à 494
obligeant ainsi l'usager à ne choisir que le nos correpondant au nom
de la cie en colonne A.... Sauriez-vous comment faire?
Choix d'une compagnie et d'un produit dans un UserForm
Noms de champ dynamiques: compagnies ÞCALER(x!$A$2;;;NBVAL(x!$A:$A)-1) produits ÞCALER(x!$B$2;;;NBVAL(x!$B:$B)-1)
Private Sub UserForm_Initialize() Set MonDico = CreateObject("Scripting.Dictionary") temp = [compagnies] ' 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.ComboBox1.List = MonDico.items End Sub
Private Sub ComboBox1_Change() d = Application.Match(Me.ComboBox1, [compagnies], 0) Me.ListBox1.Clear For i = d To d + Application.CountIf([compagnies], Me.ComboBox1) - 1 Me.ListBox1.AddItem Range("produits")(i) Next i End Sub
http://cjoint.com/?cAp3gusVZg
JB
On 26 fév, 15:39, "Denys" wrote:
Bonjour à tous,
J'aurais besoin de votre aide pour définir une "row source" changeante dans mon combobox2.
Avec mon combobox1, je choisis le nom d'une cie dans la colonne A. Supposons que je choisisse la cie DEF; la cellule active ici devient A6. Je fais passer la cellule active de A6 à A7 et avec le combobox2 je dois choisir le no du produit:
Je voudrais qu'ici, "le rowsource" parte à 406 et s'arrête à 494 obligeant ainsi l'usager à ne choisir que le nos correpondant au nom de la cie en colonne A.... Sauriez-vous comment faire?
