Problème de suppression dans listbox

Bonjour,

J'ai le code suivant pour supprimer des lignes de ma feuille depuis une listbox... le souci est que ça supprime toutes les lignes contenant la même valeur pour "A" :?:?:?

Quelqu'un aurait une idée s'il vous plaît !?

Code:

---

1 2 3 4 5 6 7

Do While Sheets("Retenues").Range("A" & i).Value <> "" If Sheets("Retenues").Range("A" & i).Value = ListBox1.Text Then Sheets("Retenues").Rows(i).Delete End If   i = i + 1 Loop

---

Ah ! euh ! on peut pas supprimer une discussion qu'on a lancé pour rien... !? :calim2:

En fait j'ai trouvé tout seul comme un grand... :mrgreen:

Merci quand même

Bonjour,

Je te poste malgré tout le code que je viens de pondre ;o)) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Supprimer()   Dim DL As Long Dim I As Long   With Worksheets("Retenues")   DL = .Cells(.Rows.Count, 1).End(xlUp).Row   'de Ax à A1 en partant du bas For I = DL To 1 Step -1   If .Range("A" & I).Value = ListBox1.Text Then   .Rows(I).Delete   End If   Next I   End With   End Sub

---

Hervé.

Merci... je vais quand même regarder...

:ccool: