Discussion :

[nanoo79]

Bonjour,

Je viens vers vous car je n'arrive pas a faire une suppression de ligne pour une double condition.

Dans ma macro, je demande de supprimer la ligne lorsque la valeur de la cellule de la colonne A = "0000002071" puis je demande de supprimer la ligne lorsque la valeur de la cellule de la colonne D= 5200 puis je demande de supprimer la ligne lorsque la valeur de la cellule de la colonne K=5200 et enfin que la macro supprime la ligne quand la valeur de la cellule A="0000074355" et que la valeur de la cellule D de la meme ligne = 4906 et la j'y arrive pas j'ai essaye une fonction if and mais la syntaxe ne va pas.

Merci de votre aide car je suis debutante et la je coince vraiment.

Mon code:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim I As Long
Dim Plage_Id As Range
Set Plage_Id = Range("A2:A" & Range("A2").End(xlDown).Row)
 
Dim J As Long
Dim Plage_UE As Range
Set Plage_UE = Range("D2:D" & Range("D2").End(xlDown).Row)
 
Dim K As Long
Dim Plage_UE1 As Range
Set Plage_UE1 = Range("K2:K" & Range("K2").End(xlDown).Row)
 
For I = Plage_Id.Cells.Count To 1 Step -1
 If Plage_Id.Cells(I).Text = "0000002071" Then
    Plage_Id.Cells(I).EntireRow.Delete
 End If
 Next
 
 
 For J = Plage_UE.Cells.Count To 1 Step -1
 If Plage_UE.Cells(J).Value = 5200 Then
    Plage_UE.Cells(J).EntireRow.Delete
 End If
 Next
 
 
 For K = Plage_UE1.Cells.Count To 1 Step -1
 If Plage_UE1.Cells(K).Value = 5200 Then
    Plage_UE1.Cells(K).EntireRow.Delete
 End If
 Next
 
 
  For I = Plage_Id.Cells.Count To 1 Step -1
  If Plage_Id.Cells.Text = "0000074355" Then
  And Plage_UE.Cells(J).Value = 4906
  Plage_Id.Cells(I).EntireRow.Delete
End If

[illight]

Merci de mettre les balises [code] quand tu met du code, sinon c'est illisible...

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
24
25
26
27
28
Dim I As Long
 
For I = range("A60000").End(xlup).Row To 1 Step -1
   If cells(i,1).value = "0000002071" Then
      Rows(i).delete
   End If
Next
 
 
For i = range("D60000").End(xlup).Row To 1 Step -1
   If cells(i,4).value = 5200 Then
      Rows(i).delete
   End If
Next i
 
 
For i = range("K60000").End(xlup).Row To 1 Step -1
   If cells(i,11).value = 5200 Then
      Rows(i).delete
   End If
Next i
 
 
For i = range("A60000").End(xlup).Row To 1 Step -1
   If cells(i,1).value = 0000074355 and cells(i,4).value=4906 Then
      Rows(i).delete
   End If
Next i

Un truc comme ça..

[nanoo79]

ok je ne savais pas. Premire fois que je poste du code sur le forum.

Merci bcp. Je vais essayer.