Suppression des lignes avec condition

**tientinou** · 19/03/2009, 11h47

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

**Krovax** · 19/03/2009, 12h11

Code :

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

If range("j" & X) Like "0*" and range("k" & X) Like "0*" and range("l" & X) Like "0*" and range("m" & X) Like "0*" Then

Les and sont plus jolie mais surtout tu es sur que tu ne veux pas vérifier que les zéros soit sur la même ligne??

Voila mon code pour tester sur les colonne a et b

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim X As Long
Dim max As Long
 
max = [A65336].End(xlUp).Row
For X = max To 1 Step -1
If Range("a" & X) Like "0*" And Range("B" & X) Like "0*" Then
Rows(X).Delete
End If
Next X
 
End Sub

Edit après tu peux tester la fin de chaque colonne et prendre le max mais si test une seule colonne si dautre ca ne sert a rien de commencer plus bas puisque tu es sure que dans la colonne testé il n'y aura pas de 0