Bonjour à tous,
j'ai un tableau qui ressemble à :
J'ai un userform avec une combobox "article" et une autre "longueur".
Premièrement, je souhaiterai enlever les doublons dans la combobox article
Ensuite, je souhaiterai que la combobox longueur corresponde avec la combox article. (par exemple: si dans article je sélectionne art 2 je voudrai que dans longueur il m'affiche 4 et 5)
Pour finir, une fois la sélection faite (par exemple: article: art2, longueur: 4) je voudrai supprimer la ligne correspondante.
J'ai essayé de coder ça, mais ça ne fonctionne pas :
Merci d'avance pour votre aides.
j'ai un tableau qui ressemble à :
| Art1 | 1 |
| Art1 | 2 |
| Art1 | 3 |
| Art2 | 4 |
| Art2 | 5 |
J'ai un userform avec une combobox "article" et une autre "longueur".
Premièrement, je souhaiterai enlever les doublons dans la combobox article
Ensuite, je souhaiterai que la combobox longueur corresponde avec la combox article. (par exemple: si dans article je sélectionne art 2 je voudrai que dans longueur il m'affiche 4 et 5)
Pour finir, une fois la sélection faite (par exemple: article: art2, longueur: 4) je voudrai supprimer la ligne correspondante.
J'ai essayé de coder ça, mais ça ne fonctionne pas :
VB:
Private Sub ComboBox1_Change()
Dim a As String, plage As Range
cbx_longueur.Clear
Set f = Sheets("Chute")
Set plage = f.Range(f.[B9], f.[B65000].End(xlUp))
a = cbx_article
For Each c In plage.Cells
x = Application.Match(c.Value, plage, 0)
If x = c.Row - 1 And c.Offset(, -2) = a Then Me.cbx_longueur.AddItem c
Next c
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set f = Sheets("Chute")
Set plage = f.Range(f.[B9], f.[B65000].End(xlUp))
For Each c In plage.Cells
x = Application.Match(c.Value, plage, 0)
If x = c.Row - 1 Then Me.cbx_article.AddItem c
Next c
End SubMerci d'avance pour votre aides.