Bonjour,

Je cherche a supprimmer des ligne en fonction d'une valeur, en gros si dans la colonne F une valeur est négative, je veut supprimer la ligne en question, je vien de regarder un autre post ou il y a le même genre de question, j'ai adapter la réponce, mais sa ne marche pas, donc si quelqu'un peut m'aider sa serait cool.

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
 
    Dim lngStart        As Long
    Dim lngCurrent      As Long
 
    lngStart = Range("F65536").End(xlUp).Row
    For lngCurrent = lngStart To 1 Step -1
        If IsNumeric(Cells(lngCurrent, 1).Value) Then
            'rien à faire
        ElseIf InStr(1, Cells(lngCurrent, 1).Value, ">0", vbTextCompare) >= 0 Then
            Range(Cells(lngStart, 1), Cells(lngCurrent, 1)).EntireRow.Delete
            lngStart = lngCurrent - 1
        Else
            lngStart = lngCurrent - 1
        End If
    Next
En gros la sa me supprime tous alors que mon but serait de ne supprimer que les lignes ou la celulle en F serait négative.

Merci d'avance pour votre aide