Suppression des lignes avec condition
Bonjour tout le monde,
Je me penche sur une fonction depuis quelques heures et visiblement, je ne trouverai pas la solution tout seul :cry:, je sollicite votre aide.
Dans un tableau, je voudrais supprimer une ligne quand le chiffre 0 apparait dans les colonnes J, K, L et M, donc 4 fois 0...
Lorsque je lance la macro, il ne met pas d'erreur mais rien ne se passe.
Je vous remercie de votre aide par avance.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Dim X As Long
Dim y As Long
Dim Z As Long
Dim W As Long
For X = [J65336].End(xlUp).Row To 1 Step -1
For y = [K65336].End(xlUp).Row To 1 Step -1
For Z = [L65336].End(xlUp).Row To 1 Step -1
For W = [M65336].End(xlUp).Row To 1 Step -1
If range("j" & X) Like "0*" Then
If range("k" & y) Like "0*" Then
If range("l" & Z) Like "0*" Then
If range("m" & W) Like "0*" Then
Rows(X).Delete
End If
End If
End If
End If
Next W
Next Z
Next y
Next X
End Sub |
