XL 2010 Relation entre deux combobox et suppression d'une ligne

[Dylan67]

Bonjour à tous,
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 :

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 Sub

Merci d'avance pour votre aides.

 

[Dranreb]

Bonjour.
En tout cas moi je le ferais comme ça :

 

[Dylan67]

Bonjour.
En tout cas moi je le ferais comme ça :

Bonjour, merci, l'aspect suppression de ligne marche bien mais il reste le problème des doublons dans article et en choisissant "Profilé1" dans article il ne m'affiche qu'une valeur dans longueur alors qu'il faudrait qu'il m'en affiche 3.

 

[Dranreb]

Je n'ai pas vu d'autre doublon que "Profilé3" et les 4 longueurs sont proposées dans l'autre ComboBox pour celui ci. Les 3 avec les mêmes lettres presque dans le même ordre que "Porfilé1" sont toutes uniques.