Supprimer une partie de la ligne si cellule contient

bonjour à tous,

voici mon soucis,

pour une selection allant de B2 à B1000,

si une cellule contient le texte "stop-stop",

alors je veux supprimer les cellules de B à N de cette ligne et faire remonter le reste du tableau.

pouvez vous m'aider ?

Merci.

Bonjour

Essaye ce code :

Sub Suprime()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value Like "stop-stop" Then Rows(i).Delete
Next i
End Sub

Amicalement

Nad

merci, mais ce n'est pas la ligne entière que je veux supprimer mais bien plusieurs cellules alignées( de B à N) pour chaque cellule B contenant la mention "stop-stop"

Re

J'avais bien lu ta demande mais comme ton fichier n'indiquait rien dans les autres colonnes ...

Sub Suprime()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value Like "stop-stop" Then Range(Cells(i, 2), Cells(i, 14)).Delete Shift:=xlUp
Next i
End Sub

Nad

la première fois, ça fonctionne puis si je le relance une deuxième fois, il se bloque (déboguage, fin) sur la ligne

If Cells(i, 2).Value Like "stop-stop" Then Range(Cells(i, 2), Cells(i, 14)).Delete Shift:=xlUp

tu sais pourquoi ?

Non, je ne vois pas. Je n'ai pas ce problème.

Est-ce que ça se passe sur le fichier exemple ou sur un autre fichier ?

Nad

sur un autre fichier, qui est d'ailleur une usine à gaz maintenant !!

Peut-on faire sous cette forme là (attention, celui là ne fonctionne bien évidemment pas ...)

Sub nettoyage_listing_MABC()

'

'Application.ScreenUpdating = False

Range("B2:B1000").Select

For Each Cell In Selection

If Cell = "stop-stop" Then

ActiveCell.Range("A1:O1").Select

Selection.Delete Shift:=xlUp

Next

'Application.ScreenUpdating = True

End Sub

Re

Ce n'est pas en changeant le code (qui fonctionne) que le problème sera réglé.

Le soucis doit venir d'un autre de tes codes.

Tu peux joindre ton fichier réel ?

Amicalement

Nad

Non, trop volumineux (environ 6 Mo).