Discussion :

[ced0802]

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 :

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

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

[Patrice740]

Bonjour,

Essaies :

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
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

[ced0802]

Bonjour Patrice,

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