Discussion :

[GOMMME]

Bonjour

Cela va vous paraître certainement simple mais je cherche à créer une macro qui me supprime toutes les lignes contenant un mot dans une base de données?

Merci de votre aide

Gommme

[mercatog]

Bonjour
le mot en question se trouve dans quelle colonne?
ce mot fait partie du contenu des cellules en question ou bien en est LE contenu
il faut plus de précision.

[GOMMME]

Le mot se trouve dans la première colonne et EST le contenu de la colonne.

[mercatog]

ligne 1 c'est la ligne des titres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CommandButton1_Click()
Dim Lastlig As Long
Dim TonMot As String
 
TonMot = "Toto"
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .AutoFilterMode = False
    Lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1").AutoFilter field:=1, Criteria1:=TonMot
    If .Range("A1:A" & Lastlig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("A2:A" & Lastlig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

[GOMMME]

Merci beaucoup

Cela fonctionne impeccable.
Si je veux rajouter un autre mot, je crée une autre variable et j'ajoute

Criteria1:=TonMot OR Criteria1:=AutreMot ?

[mercatog]

F1 sur autofilter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Range("A1").AutoFilter field:=1, Criteria1:=TonMot, Operator:=xlOr, Criteria2:=AutreMot

[GOMMME]

J'ai créé un bouton avec la barre formulaire en lui affectant la macro que vous avez faite mais rien ne se fait quand je clique dessus ?

Quelle manipulation dois-je faire ?

Sinon puis je me permettre une autre question ?

Comment rajouter une colonne (première colonne) en y inscrivant le nom de la feuille sur chaque ligne (chaque feuille a un nome de ville que je veux rajouter à la première colonne de chaque ligne)

Le programme bloque, il filtre bien "Autre Mot" sans prendre "MonMot", et reste bloqué sur ce filtre sans supprimer de ligne.