Aide svp - Suppression ligne

[nicoland]

Bonjour, je souhaiterais,par une macro, supprimer toutes les lignes de mon tableau dont la valeur dans la colonne D est "X".

Merci votre aide

 

[porcinet82]

Re : Aide svp - Suppression ligne

Salut Nico,

Voici un petit bout de code qui devrait pouvoir te rendre service :

Sub test()
Dim i&
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If LCase(Cells(i, 4).Value) = "x" Then Rows(i).Delete
Next i
End Sub

@+

 

[_Thierry]

Re : Aide svp - Suppression ligne

Bonjour Porcinet, Nicoland, le Forum

Une Variante cousine à celle de Porcinet....

Option Explicit
Option Compare Text
Sub Terminator_X()
Dim L As Long, i As Long
Dim Counter As Long
Application.ScreenUpdating = False
    With Sheets("Feuil1")
        L = .Range("A65535").End(xlUp).Row
 
        For i = L To 2 Step -1
            If .Cells(i, 4) = "x" Then
                .Rows(i).EntireRow.Delete
                Counter = Counter + 1
            End If
        Next
    End With
Application.ScreenUpdating = True
MsgBox Counter & " Rows have been deleted"
End Sub

Bon App

@+Thierry

​

 

[nicoland]

Re : Aide svp - Suppression ligne

Merci beaucoup, çà m'a l'air cool tout çà.

Merci merci