Si "dans ma selection" alors

Version imprimable

Bonjour a tous,

J'aurais besoin d'un petit coup de main concernant une condition dans une selection. Je m'explique :
J'ai cree une macro qui permet de selectionner une plage. Dans cette plage je souhaite supprimer les lignes qui contiennent un certains nombre.
C'est quelaue chose que je n'ai jamais fait.

Merci a vous pour vos indications.
Code:

1 2 3 4 5 6 7 8 9 10 Sub trier_les_codes() Dim rng As Range ThisWorkbook.Sheets("Sheet2").Activate Set sht = ThisWorkbook.Worksheets("Sheet2") LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row Set rng = ActiveSheet.Range(Cells(5, 1), Cells(LastRow, 9)).Select End Sub

Bonjour,

Essaies :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Sub trier_les_codes()
Dim LastRow As Long
Dim NumRow As Long
 
  With ThisWorkbook.Worksheets("Sheet2")
    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    For NumRow = LastRow To 5 Step -1
      If .Cells(NumRow, "C").Value = 1 Then
        .Range(.Cells(NumRow, "A"), .Cells(NumRow, "I")).Delete xlShiftUp
      End If
    Next NumRow
  End With
 
End Sub

29/04/2017, 18h27
ced0802

Bonjour Patrice,

Ca fonctionne :)
Un grand merci d'avoir pris le temps de m'aider.