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
Partager