Discussion :

[Chris171717]

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 :

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

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

[Chris171717]

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

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

Merci quand même

[Theze]

Bonjour,

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

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
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é.

[Chris171717]

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