Sur un Userform en feuille 2, j'ai diff=E9rents combobox. Le premier a
pour source la colonne A de la feuille 1 qui comprend des
abbr=E9viations de trois lettres (environ 7000, mais bien s=FBr il y en a
qui se r=E9p=E8tent) . Le second combobox lui a pour source la colonne B
qui a des nombres de trois chiffres. Quant au dernier combobox, il a
pour source la colonne C qui donne le nom du produit par la compagnie
en colonne A et son no en colonne B.
J'aimerais, par exemple, qu'apr=E8s avoir inscrit RST dans mon
combobox1, que mon combobox 2 inscrive la premi=E8re s=E9rie de trois
chiffres correspondante en colonne B ainsi que le nom du produit en
colonne C dans mon combobox3.
Puis, ensuite en choisissant le bon nombre en combobox 2, que le
combobox 3 inscrive le nom du produit correspondant.
En fait, j'aurais besoin d'activer la cellule en feuille 1 avec les
deux premiers combobox....
Private Sub ComboBox1_Change() Application.ScreenUpdating = False Sheet1.Select Nom = ComboBox1 With ActiveSheet() Cells.Find(What:=Nom, After:=Range("A2"), _ LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:úlse).Activate End With
ComboBox2.Value = ActiveCell.Offset(0, 1).Value ComboBox3.Value = ActiveCell.Offset(0, 2).Value Sheet2.Select End Sub
Désolé d'avoir pollué le site...
Denys
Bon,
Tout ça pour rien, j'ai trouvé......
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheet1.Select
Nom = ComboBox1
With ActiveSheet()
Cells.Find(What:=Nom, After:=Range("A2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
End With
ComboBox2.Value = ActiveCell.Offset(0, 1).Value
ComboBox3.Value = ActiveCell.Offset(0, 2).Value
Sheet2.Select
End Sub
Private Sub ComboBox1_Change() Application.ScreenUpdating = False Sheet1.Select Nom = ComboBox1 With ActiveSheet() Cells.Find(What:=Nom, After:=Range("A2"), _ LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:úlse).Activate End With
ComboBox2.Value = ActiveCell.Offset(0, 1).Value ComboBox3.Value = ActiveCell.Offset(0, 2).Value Sheet2.Select End Sub
Désolé d'avoir pollué le site...
Denys
LSteph
Bonsoir,
Je reviens retrospectivement à ce sujet suite au suivant (en essayant de comprendre)
A priori utiliser le même ListIndex.
Cordialement.
lSteph
Bonjour à tous,
Sur un Userform en feuille 2, j'ai différents combobox. Le premier a pour source la colonne A de la feuille 1 qui comprend des abbréviations de trois lettres (environ 7000, mais bien sûr il y en a qui se répètent) . Le second combobox lui a pour source la colonne B qui a des nombres de trois chiffres. Quant au dernier combobox, il a pour source la colonne C qui donne le nom du produit par la compagnie en colonne A et son no en colonne B.
J'aimerais, par exemple, qu'après avoir inscrit RST dans mon combobox1, que mon combobox 2 inscrive la première série de trois chiffres correspondante en colonne B ainsi que le nom du produit en colonne C dans mon combobox3.
Puis, ensuite en choisissant le bon nombre en combobox 2, que le combobox 3 inscrive le nom du produit correspondant.
En fait, j'aurais besoin d'activer la cellule en feuille 1 avec les deux premiers combobox....
Z'auriez une idée ?
Merci
Denys
Bonsoir,
Je reviens retrospectivement à ce sujet suite au suivant (en essayant
de comprendre)
A priori utiliser le même ListIndex.
Cordialement.
lSteph
Bonjour à tous,
Sur un Userform en feuille 2, j'ai différents combobox. Le premier a
pour source la colonne A de la feuille 1 qui comprend des
abbréviations de trois lettres (environ 7000, mais bien sûr il y en a
qui se répètent) . Le second combobox lui a pour source la colonne B
qui a des nombres de trois chiffres. Quant au dernier combobox, il a
pour source la colonne C qui donne le nom du produit par la compagnie
en colonne A et son no en colonne B.
J'aimerais, par exemple, qu'après avoir inscrit RST dans mon
combobox1, que mon combobox 2 inscrive la première série de trois
chiffres correspondante en colonne B ainsi que le nom du produit en
colonne C dans mon combobox3.
Puis, ensuite en choisissant le bon nombre en combobox 2, que le
combobox 3 inscrive le nom du produit correspondant.
En fait, j'aurais besoin d'activer la cellule en feuille 1 avec les
deux premiers combobox....
Je reviens retrospectivement à ce sujet suite au suivant (en essayant de comprendre)
A priori utiliser le même ListIndex.
Cordialement.
lSteph
Bonjour à tous,
Sur un Userform en feuille 2, j'ai différents combobox. Le premier a pour source la colonne A de la feuille 1 qui comprend des abbréviations de trois lettres (environ 7000, mais bien sûr il y en a qui se répètent) . Le second combobox lui a pour source la colonne B qui a des nombres de trois chiffres. Quant au dernier combobox, il a pour source la colonne C qui donne le nom du produit par la compagnie en colonne A et son no en colonne B.
J'aimerais, par exemple, qu'après avoir inscrit RST dans mon combobox1, que mon combobox 2 inscrive la première série de trois chiffres correspondante en colonne B ainsi que le nom du produit en colonne C dans mon combobox3.
Puis, ensuite en choisissant le bon nombre en combobox 2, que le combobox 3 inscrive le nom du produit correspondant.
En fait, j'aurais besoin d'activer la cellule en feuille 1 avec les deux premiers combobox....
