suppression de lignes par macro

[Oliv76]

bonjour à tous
Je voudrais supprimer toutes les lignes d'un tableau dont les cellules contiennent certaines infos ( exemple : montant ) ou bien lorque certaines cellules sont vides .
Quel est le code à taper ?

j'ai trouvé ça sur le net :
Sub SupprLigne()
ActiveCell.CurrentRegion.Select
For Each Cell In Selection
If InStr(1, Cell, "? ") > 0 Then
Cell.EntireRow.Delete
End If
Next Cell
End Sub

mais ça marche pas 😡
Merci beaucoup

Oliv

 

[ROGER2327]

Re : suppression de lignes par macro

Bonjour Oliv76

...et bienvenue !
C'est bizarre, je viens d'essayer votre procédure, et elle fonctionne parfaitement. Dans la plage à traiter, avez-vous des données qui contiennent "? " ?​

ROGER2327
#2078

 

[Dull]

Re : suppression de lignes par macro

Salut Oliv76 et Bienvenue sur XLD, le Forum

Pas sur d'avoir compris mais essaye ce code

Sub SupprLigne()
For Each Cell In ActiveCell.CurrentRegion
If Cell Like "*Montant*" Then
Cell.EntireRow.Delete
End If
Next Cell
End Sub

A tester

EDITION: Salut Roger🙂

Bonne Journée

 

[gilbert_RGI]

Re : suppression de lignes par macro

Bonjour à vous tous

essayez ceci

Sub supprime_montant()
With Range(Range("A1"), Range("A65536").End(xlUp))
        .AutoFilter Field:=1, Criteria1:="=montant"
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

si "montant" se trouve en colonne A

 

[Oliv76]

Re : suppression de lignes par macro

merci à tous de votre aide : ça marche ! je tatonne alors j'avais mis des trucs en double . Etant débutant dans les macros, j'aurai surement l'occasion de vous demander encore des précisions.
Oliv😛