XL 2019 Supprimer plusieurs lignes sur selection

[netparty]

Bonjour à tous

Dans mon tableaux j'aimerai supprimer les lignes pour les quelles en x est placé dans la première colonne.

Auriez-vous un bout de code pour se type de demande.

Merci d'avance

 

[Dudu2]

Bonjour,
Dans ton tableaux tu aimerais supprimer les lignes pour lesquelles un "x" est placé dans la première colonne.
Edit: code modifié pour répondre au Post #3.

Sub SupprimerLignesX()
    Dim RangeDelete As Range
    Dim PremièreLigneTableau As Long
    Dim DernièreLigneTableau As Long
    Dim i As Long
    Const PremièreColonneTableau = 1

    With ActiveSheet        
        PremièreLigneTableau = 1
        DernièreLigneTableau = .Cells(Rows.Count, PremièreColonneTableau).End(xlUp).Row
     
        For i = PremièreLigneTableau To DernièreLigneTableau
            If VarType(.Cells(i, PremièreColonneTableau).Value) = vbString Then
                If UCase(Trim(.Cells(i, PremièreColonneTableau).Value)) = "X" Then
                    If RangeDelete Is Nothing Then Set RangeDelete = .Row(i) Else Set RangeDelete = Union(RangeDelete, .Row(i))
                End If
            End If
        Next i
   
        If Not RangeDelete Is Nothing Then RangeDelete.Delete
    End With
End Sub

 

[netparty]

Bonjour Dudu2

Oui je vais utiliser la colonne A pour placer les X

 

[Phil69970]

Bonjour @netparty , @Dudu2, le forum


Je te propose ceci:
Je suis parti d'un tableau comme tu l'as mentionné dans ton post

Dans mon tableaux

@Phil69970

 

[netparty]

Bonjour @netparty , @Dudu2, le forum


Je te propose ceci:
Je suis parti d'un tableau comme tu l'as mentionné dans ton post


@Phil69970

Bonjour @Phil69970

Merci pour ton code cela fonctionne très bien.
Par contre si j'ai une feuille sans tableau cela ne fonctionne pas.
Existe-il une solution pour utiliser ton code dans une feuille classique.

Bonne soirée

 

[Phil69970]

Re

J'ai commenté le code....

@Phil69970

 

[Phil69970]

Re

@netparty :
Un petit retour pour savoir si cela te vas ?

@Phil69970