Discussion :

[geophone]

Bonjour, je voudrais une macro qui me permet
d'effacer les cellules contenant un "x" dans la colonne H.

Merci à vous

[BENNASR]

bonjour
effacer et non pas supprimer ligne entière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub test()
Dim i As Long
Dim F As Worksheet
Dim L As Long
Set F = Sheets("Feuil1")
i = F.Range("H" & Rows.Count).End(xlUp).Row
For L = 2 To i
If LCase(F.Cells(L, "H")) Like "*x*" Then F.Cells(L, "H").ClearContents
Next L
End Sub

[mfoxy]

Hello,

Plutôt que de boucler sur chaque ligne de la plage , je travaillerais avec un find and replace all.
L'enregistreur de macro donnerait déjà 90% du code, resterait les select à supprimer et ajouter les parentalités.

Bav,

[geophone]

Ca fonctionne parfaitement merci beaucoup

a+

Rebonjour, je voudrai faire la même chose mais avec un "R"
j'ai donc changé la lettre, mais ça ne fonctionne pas 'bizarre'
Peux-tu régler s'il te plaît régler ce problème
Merci à toi

[BENNASR]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub test()
Dim i As Long
Dim F As Worksheet
Dim L As Long
Set F = Sheets("Feuil1")
i = F.Range("H" & Rows.Count).End(xlUp).Row
For L = 2 To i
If LCase(F.Cells(L, "H")) Like "*r*" Then F.Cells(L, "H").ClearContents
Next L
End Sub