Bonjour tout le monde,

Je me penche sur une fonction depuis quelques heures et visiblement, je ne trouverai pas la solution tout seul , 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 : 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
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