Discussion :

[greg hanssen]

Bonjour,

Je souhaiterai via une commande que j'ai créée ( screen-shot en PJ) supprimer toutes les lignes contenant la valeur sélectionnée dans le menu déroulant



Je vous met ci-dessous le code qui ne supprime que la 1er ligne, je n'arrive pas à les supprimer toutes:

Private Sub ComdDeleteButtonProcess_Click()

'Déclarer des variables
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim processus As String

'On récupère la feuille de calcul active
Set ws = ActiveSheet

'On recherche la dernière ligne de données dans la colonne D
lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

'On boucle sur toutes les lignes de la feuille pour supprimer les lignes liées au processus sélectionné
For i = lastRow To 2 Step -1
processus = ws.Cells(i, "D").value
If processus = Me.ComboBox1.value Then
ws.Rows(i).Delete
End If
Next i

'On supprime le processus sélectionné de la ComboBox1
ComboBox1_Change

End Sub