Bonjour,

Je m'explique, j'ai dans différentes colonnes des cellules avec certaines valeurs. Et je souhaiterais supprimer la ligne correspondant à la cellule qui contient la valeur. J'utilise cette macro mais en vain, ça me supprime quelques valeurs et je dois la refaire pour supprimer encore d'autres ainsi de suite. Pour info des cellules vides existent dans les colonnes.

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
Sub supprime_CB()
With Range(Range("DQ2"), Range("DQ65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
 
 
With Range(Range("DR2"), Range("DR65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DS2"), Range("DS65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DT2"), Range("DT65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DU2"), Range("DU65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub