Suppression via plusieurs combobox

Bonjour,
Je suis actuellement coincé car j'ai plusieurs combobox qui s’aditionnent et je voudrais à partir de ça qu'une fois tout les combobox sélectionnés, la ligne correspondant aux choix des combobox soit supprimée et qu'il n'y est pas un trou dans le tableau. Pour vous montrez ou j'en suis je vous fait parvenir mon document exemple.

Merci d'avance

Bonsoir,

Mets ce code à la suite dans ton Userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click()   Dim Dern_Ligne As Integer, Ligne As Integer   Dern_Ligne = Range("A" & Rows.Count).End(xlUp).Row   If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Then MsgBox "Il manque des champs", vbExclamation Exit Sub Else For Ligne = 1 To Dern_Ligne If Cells(Ligne, 1) = ComboBox1 And Cells(Ligne, 3) = ComboBox2 And Cells(Ligne, 4) = ComboBox3 And Cells(Ligne, 5) = ComboBox4 Then Cells(Ligne, 1).EntireRow.Delete End If Next Ligne End If End Sub

---

Je te remercie pour cette rapidité et ce travail exceptionnel, le macro marche à merveille!!! :D