Remlir combobox selon conditon
Bonjour,
voir la Photo ci-dessous:
Je veux remplir un combobox avec les valeur qui se trouve dans la colonne G selon les valeurs qui se trouve dans la colonne F.
par exemple: pour tous les no qui se trouve dans la colonne F: Test N° "3005", le combobox doit être rempli de valeur de Tag "1,2,3,4" et pour "3062" de "xx, y", et "4244" de "test1, test2"
et aussi le nombre de Test N° dans la colonne F peut augmenter, dans ce cas le combobox doit s'adapter.
la sélection de Test N° se fait via un textbox.
lorsque je selectionne le dernier Test N° ex: 4244, ça plante, je pense que c'est la End(xlDown qui pose soucis.
Merci de votre aide.
voici le code utilisé:
Private Sub TextBox_TextN?_Change()
Dim Noms As Range
With ThisWorkbook.Sheets("Feuil1")
.Select
Set Noms = .Columns("F").Find(what:=Me.TextBox_TextN?.Value)
If Not Noms Is Nothing Then
Noms.Offset(0, 0).Select ' Select the active line
Fill_Tag
End If
End With
End Sub
_____________________________________________________________________________________________________________________
Private Sub Fill_Tag()
Dim SearchRange As Range
Dim Cell As Range
Me.ComboBox_Find_SiteTag.Clear ' vide le combobox
With ThisWorkbook.Sheets("Feuil1")
Do While ActiveCell.Value <> Empty
Set SearchRange = .Range(Selection.Offset(0, 0), Selection.Offset(1, 0).End(xlDown)) ' recherche la valeur dans la cellule
For Each Cell In SearchRange
If Cell.Offset(0, 1) <> "" Then ' Regarde la valeur de cellule de droite
If Me.ComboBox_Find_SiteTag.ListIndex = -1 Then Me.ComboBox_Find_SiteTag.AddItem Cell.Offset(0, 1)
Else
If Me.ComboBox_Find_SiteTag.ListIndex = -1 Then Me.ComboBox_Find_SiteTag.AddItem Cell.Offset(-1, 1)
End If
Next Cell
Exit Do
Loop
End With
End SubBonjour
Un essai à tester. Te convient-il ?
Bye !
j'ai une autre question.
voilà, maintenant on a rempli notre combobox, maintenant, j'ai par exemple 2 autres textbox qui me permet d'afficher les valeurs de colonne H et I, selon la valeur sélectionné de Combobox.
par exemple si on sélectionne la valeur 4 de combobox, je veux qu'on affiche les info de cette ligne qui sont dans les colonne H et I dans les Textbox. (descrip 4 et Type 4)
voir photo ci-dessous.
