Discussion :

[derin]

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

[ouskel'n'or]

Je pense que ça devrait suffire si les éléments que tu donnes sont les bons : Nombre négatif => On supprime la ligne

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim i As Long
    For i = Range("F65536").End(xlUp).Row To 1 Step -1
        If Cells(i, 6).Value < 0 Then
            Cells(i, 6).EntireRow.Delete
        End If
    Next
End Sub

Bonne journée

NB - Dans ton code, tu recherches la dernière ligne renseignée de la colonne F et tu vérifies les données de la colonne A. Donc corrige "quelque chose"

[derin]

Merci ouskel'n'or sa marche nikel