Discussion :

[xaviou99]

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

[McLister213]

Bonsoir,

Mets ce code à la suite dans ton Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xaviou99]

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