Boucle pour supprimer lignes

Bonsoir le forum

En pièce jointe j'ai mis un fichier contenant un tableau

Je cherche à l'aide d'une boucle à supprimer les lignes si dans la colonne "F"

la cellule contient soit "immeuble à supprimer", dois "immeuble à créer"

Je ne comprends pas ce qui ne va pas

Si quelqu'un pouvait y jeter une oeil

D'avance je vous remercie pour votre aide et votre disponibilité

13asuppeole.xlsm (19.38 Ko)

Bonsoir,

Quel rapport avec ton sujet précédent ?

Il me semblait que tu avais déjà fait plusieurs sujets de suppressions de lignes !?

Bon ! D'abord éviter les fautes d'orthographe dans les mentions d'identification des lignes à supprimer.

Ensuite, une boucle For Each... Next n'est pas recommandée dans ce cas !

Si on veut supprimer à l'unité, une boucle For... Next est plus indiqué, et il faut l'exécuter du bas vers le haut avec un pas de -1.

De toute façon ta commande est défectueuse, il fallait écrire : c.EntireRow.Delete

Dans une boucle For... Next tu écriras : .Rows(i).Delete

Bonjour le forum

Bonjour Mferrand

Là ça marche

Sub suppr()
Application.ScreenUpdating = False
Dim I     As Long
Dim Plage As Range
Set Plage = Range("F1:F" & Range("F65536").End(xlUp).Row)
For I = Plage.Cells.Count To 1 Step -1
    If InStr(Plage.Cells(I).Text, "supprimer") Then
    Plage.Cells(I).EntireRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

Par contre comment je fais si je veux supprimer les lignes qui contiennent et le mot "supprimer" et le mot "créer"

merci d'avance pour votre aide et votre disponibilité

bonjour

essayer ca

 Sub suppr()
    Application.ScreenUpdating = False
    Dim i As Long
    Dim nb
    With Worksheets("Export mise à jour")
    nb = .Range("F" & Rows.Count).End(xlUp).Row
    For i = nb To 2 Step -1
        If InStr(.Range("F" & i), "supprimer") Or InStr(.Range("F" & i), "créer") Then
        .Rows(i).Delete
        End If
    Next
    End With
    Application.ScreenUpdating = True
    End Sub

Bonsoir le forum

Bonsoir Amir et Re bonsoir MFerrand

Merci beaucoup, c'est toujours là que je galère avec les "or", les "and"

super je vais avancé

Rechercher des sujets similaires à "boucle supprimer lignes"