problème pour coder un programme en VBA

Version imprimable

17/12/2010, 17h15
skipeemed

problème pour coder un programme en VBA

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

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:

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é.

Bonjour
Ecrit le mot avec la bonne casse dans la macro

Code:

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

20/12/2010, 10h00
skipeemed

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

A très bientôt!!!

Cdt,
SKIP