Supprimer des lignes si cellule en B contient "Batch"

[SOYA]

Bonjour !

Pouvez-vous me donner le code VBA qui supprime les lignes dont la cellule en B contient le mot "Batch".

Je ne peux pas faire de filtre automatique car mon tableau a plusieur milliers de lignes avec des lignes vides.

Merci beaucoup !

 

[pierrejean]

Re : Supprimer des lignes si cellule en B contient "Batch"

bonjour SOYA

A tester:

Application.screenupdating=False
for n=range("B65536").end(xlup).row to 1 step -1
 if range("B" & n)="Batch" then rows(n).delete
next n
Application.screenupdating=True

 

[tototiti2008]

Re : Supprimer des lignes si cellule en B contient "Batch"

Bonjour soya, Bonjour PierreJean,

Le code de PierreJean fonctionne pour les cellules égales à "Batch"
pour "contient", je proposerais une petite modification :

Application.screenupdating=False
for n=range("B65536").end(xlup).row to 1 step -1
 if range("B" & n).value Like "*Batch*" then rows(n).delete
next n
Application.screenupdating=True

et si le mot "batch" peut être en minuscules ou majuscules, plutôt :

Application.screenupdating=False
for n=range("B65536").end(xlup).row to 1 step -1
if ucase(range("B" & n).value) Like "*BATCH*" then rows(n).delete
next n
Application.screenupdating=True

 

[SOYA]

Re : Supprimer des lignes si cellule en B contient "Batch"

Bonjour Pierrejean et merci de vous occuper de mon cas.

J'ai recopié votre code et ça ne fonctionne pas. Rien ne se passe...

 

[SOYA]

Re : Supprimer des lignes si cellule en B contient "Batch"

Merci tototiti, ça fonctionne ainsi 🙂

Je le garde précieusement pour l'adapter à d'autres colonnes et d'autres mots !

 

[tototiti2008]

Re : Supprimer des lignes si cellule en B contient "Batch"

Re,

et mes adaptations du code de PierreJean ?

Edit : Bing - Collision 🙂

 

[vbacrumble]

Re : Supprimer des lignes si cellule en B contient "Batch"

Bonjour tous


On peut tout de même utiliser le filtre automatique

Sub Macro3()
Dim rf As Range
Application.ScreenUpdating = False
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Range("B1").AutoFilter Field:=1, Criteria1:="=*batch*", Operator:=xlAnd
Set rf = Range("_FilterDataBase")
rf.Offset(1, 0).Resize(rf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub

A+