Discussion :

[skipeemed]

Bonjour,

je veux créer un programme qui supprime les lignes qui contiennent dans la colonne D un mot précis.

C'est à dire par exemple si j'ai:
Nom prénom ville adresse téléphone
Dupont Jean paris XYZ 45367
Prevet jacques lille ETU 33678
Leclaire benoit paris DFG 86945

Je veux un programme qui supprime automatiquement toute la ligne dont la colonne C contient la ville "paris". Par conséquent je n'aurai plus que la ligne qui contient comme caractéristique la ville de "lille".

Merçi d'avance
Cdt,
SKIP

[Theze]

Bonsoir,

Tu parles de mot précis dans la colonne D et ensuite, tu dis vouloir supprimer les lignes qui contiennent "Paris" en colonne C ? La proc ci-dessous effectue la recherche dans la colonne C, adapte sinon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Sub Supprimer()
 
    Dim Plage As Range
    Dim I As Integer
 
    'adapter le nom de la feuille
    With Worksheets("Feuil1")
    'adapter la colonne
        Set Plage = .Range(.[C2], .[C65536].End(xlUp))
    End With
 
    For I = Plage.Cells.Count To 1 Step -1
        If Plage(I).Value = "Paris" Then Plage(I).EntireRow.Delete
    Next I
 
    Set Plage = Nothing
 
End Sub

Hervé.

[Vadorblanc]

Bonjour
Ecrit le mot avec la bonne casse dans la macro

Code :

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

1
2
3
4
5
6
7
Sub Module1SuppressionLignesAvecCritères()
 
 
For n = Range("A65536").End(xlUp).Row To 1 Step -1
      If InStr(Range("A" & n), "paris") > 0 Then Rows(n).Delete
    Next n
End Sub

Cordialement

[skipeemed]

Merçi beaucoup les amis ça a marché.

A très bientôt!!!

Cdt,
SKIP