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